From: yamaoka <yamaoka>
Date: Tue, 2 Nov 2004 11:59:26 +0000 (+0000)
Subject: Synch to No Gnus 200411021158.
X-Git-Tag: t-gnus-6_17_4-quimby-~686
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=4b5e0bddec3bf3989596bd9949e6332ce1173671;p=elisp%2Fgnus.git-

Synch to No Gnus 200411021158.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9206c5a..5a9d404 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-11-02  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* html2text.el (html2text-get-attr): Remove unused argument `tag'.
+	(html2text-format-tags): Remove unused variable `attr'.
+
 2004-11-01  Reiner Steib  <Reiner.Steib@gmx.de>
 
 	* gnus-msg.el (gnus-summary-resend-default-address): Add :version.
diff --git a/lisp/html2text.el b/lisp/html2text.el
index f5e0e58..91d8426 100644
--- a/lisp/html2text.el
+++ b/lisp/html2text.el
@@ -144,7 +144,7 @@ formatting, and then moved afterward.")
   "Get value of ATTRIBUTE from LIST."
   (nth 1 (assoc attribute list)))
 
-(defun html2text-get-attr (p1 p2 tag)
+(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,7 +320,7 @@ formatting, and then moved afterward.")
   ;; 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"))
+  (let* ((attr-list (html2text-get-attr p1 p2))
 	 (href (html2text-attr-value attr-list "href")))
     (delete-region p1 p4)
     (when href
@@ -417,8 +417,7 @@ See the documentation for that variable."
 				(point-max) t)
 	(let ((p1)
 	      (p2 (point))
-	      (p3) (p4)
-	      (attr (match-string 0)))
+	      (p3) (p4))
 	  (search-backward "<" (point-min) t)
 	  (setq p1 (point))
 	  (search-forward (format "</%s>" tag) (point-max) t)