2 files changed, 13 insertions, 2 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 782c2a260a6..292d36ce9e1 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,14 @@
+2004-10-13  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+        * message.el (message-tokenize-header): Fix 2004-09-06 change
+        which used point-min in the wrong place.
+
+2004-10-12  Simon Josefsson  <jas@extundo.com>
+
+        * net/tls.el (tls-certtool-program): New variable.
+        (tls-certificate-information): New function, based on
+        ssl-certificate-information.
+
 2004-10-10  Reiner Steib  <Reiner.Steib@gmx.de>
 
         * gnus-sum.el: Mention that multibyte characters don't work as marks.
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index bfaf1675703..c9d05d1a0fe 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -1615,11 +1615,11 @@ is used by default."
   (if (not header)
       nil
     (let ((regexp (format "[%s]+" (or separator ",")))
-          (beg (point-min))
           (first t)
-          quoted elems paren)
+          beg quoted elems paren)
       (with-temp-buffer
         (mm-enable-multibyte)
+        (setq beg (point-min))
         (insert header)
         (goto-char (point-min))
         (while (not (eobp))