[Emacs-diffs] Changes to emacs/lisp/gnus/html2text.el

[Miles Bader]

Index: emacs/lisp/gnus/html2text.el
diff -c emacs/lisp/gnus/html2text.el:1.5 emacs/lisp/gnus/html2text.el:1.6
*** emacs/lisp/gnus/html2text.el:1.5    Mon Nov  1 23:06:34 2004
--- emacs/lisp/gnus/html2text.el        Thu Nov  4 08:12:39 2004
***************
*** 144,150 ****
    "Get value of ATTRIBUTE from LIST."
    (nth 1 (assoc attribute list)))
  
! (defun html2text-get-attr (p1 p2 tag)
    (goto-char p1)
    (re-search-forward " +[^ ]" p2 t)
    (let* ((attr-string (buffer-substring-no-properties (1- (point)) (1- p2)))
--- 144,150 ----
    "Get value of ATTRIBUTE from LIST."
    (nth 1 (assoc attribute list)))
  
! (defun html2text-get-attr (p1 p2)
    (goto-char p1)
    (re-search-forward " +[^ ]" p2 t)
    (let* ((attr-string (buffer-substring-no-properties (1- (point)) (1- p2)))
***************
*** 320,326 ****
    ;; If someone can explain how to make the URL clickable I will surely
    ;; improve upon this.
    ;; Maybe `goto-addr.el' can be used here.
!   (let* ((attr-list (html2text-get-attr p1 p2 "a"))
         (href (html2text-attr-value attr-list "href")))
      (delete-region p1 p4)
      (when href
--- 320,326 ----
    ;; If someone can explain how to make the URL clickable I will surely
    ;; improve upon this.
    ;; Maybe `goto-addr.el' can be used here.
!   (let* ((attr-list (html2text-get-attr p1 p2))
         (href (html2text-attr-value attr-list "href")))
      (delete-region p1 p4)
      (when href
***************
*** 418,425 ****
                                (point-max) t)
        (let ((p1)
              (p2 (point))
!             (p3) (p4)
!             (attr (match-string 1)))
          (search-backward "<" (point-min) t)
          (setq p1 (point))
          (re-search-forward (format "</%s>" tag) (point-max) t)
--- 418,424 ----
                                (point-max) t)
        (let ((p1)
              (p2 (point))
!             (p3) (p4))
          (search-backward "<" (point-min) t)
          (setq p1 (point))
          (re-search-forward (format "</%s>" tag) (point-max) t)