2001-10-30 23:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	* message.el (message-get-reply-headers): Make sure there is ", ".

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7515021..3c2c5e7 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2001-10-30 23:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
+       * message.el (message-get-reply-headers): Make sure there is ", ".
+
        * mm-util.el (mm-mime-mule-charset-alist): Move down and call
        mm-coding-system-p. Don't correct it only in XEmacs.
        (mm-charset-to-coding-system): Use mm-coding-system-p and

diff --git a/lisp/message.el b/lisp/message.el
index 3d2315f..48d713a 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -4149,8 +4149,9 @@ responses here are directed to other addresses.")))
        (if to  (setq recipients (concat recipients ", " to)))
        (if cc  (setq recipients (concat recipients ", " cc)))
        (if mct (setq recipients (concat recipients ", " mct)))))
-      ;; Strip the leading ", ".
-      (setq recipients (substring recipients 2))
+      (if (>= (length recipients) 2)
+         ;; Strip the leading ", ".
+         (setq recipients (substring recipients 2)))
       ;; Squeeze whitespace.
       (while (string-match "[ \t][ \t]+" recipients)
        (setq recipients (replace-match " " t t recipients)))