Synch with Oort Gnus.

[elisp/gnus.git-] / lisp / message.el

diff --git a/lisp/message.el b/lisp/message.el
index 47359a5..5a3f3df 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -4863,9 +4863,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 ", ".
-      (unless (string= recipients "")
-       (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)))