(gnus-configure-posting-styles): Remove unused

variable.  From Jan Rychter <jan@rychter.com>.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 133ab13..e31edd2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2003-06-20  Jesper Harder  <harder@ifa.au.dk>
 
+       * gnus-msg.el (gnus-configure-posting-styles): Remove unused
+       variable.  From Jan Rychter <jan@rychter.com>.
+
        * spam.el (spam-spamoracle-learn): insert-string is obsolete.
 
 2003-06-19  Teodor Zlatanov  <tzz@lifelogs.com>

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 5f90549..cd56894 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -1820,7 +1820,7 @@ this is a reply."
   (unless gnus-inhibit-posting-styles
     (let ((group (or group-name gnus-newsgroup-name ""))
          (styles gnus-posting-styles)
-         style match variable attribute value v results
+         style match attribute value v results
          filep name address element)
       ;; If the group has a posting-style parameter, add it at the end with a
       ;; regexp matching everything, to be sure it takes precedence over all
@@ -1868,7 +1868,6 @@ this is a reply."
          ;; We have a match, so we set the variables.
          (dolist (attribute style)
            (setq element (pop attribute)
-                 variable nil
                  filep nil)
            (setq value
                  (cond