[Emacs-diffs] Changes to emacs/lisp/mail/rfc822.el,v

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      08/09/24 17:56:13

Index: rfc822.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/rfc822.el,v
retrieving revision 1.28
retrieving revision 1.29
diff -u -b -r1.28 -r1.29
--- rfc822.el   6 May 2008 07:22:26 -0000       1.28
+++ rfc822.el   24 Sep 2008 17:56:13 -0000      1.29
@@ -292,12 +292,15 @@
          (goto-char (point-min))
          (let ((list ())
                tem
-               rfc822-address-start); this is for rfc822-bad-address
+               ;; This is for rfc822-bad-address.  Give it a non-nil
+               ;; initial value to prevent rfc822-bad-address from
+               ;; raising a wrong-type-argument error
+               (rfc822-address-start (point)))
+           (catch 'address ; this is for rfc822-bad-address
            (rfc822-nuke-whitespace)
            (while (not (eobp))
              (setq rfc822-address-start (point))
              (setq tem
-                   (catch 'address ; this is for rfc822-bad-address
                      (cond ((rfc822-looking-at ?\,)
                             nil)
                            ((looking-at "[][\000-\037@;:\\.>)]")
@@ -306,13 +309,13 @@
                               (format "Strange character \\%c found"
                                       (preceding-char))))
                            (t
-                            (rfc822-addresses-1 t)))))
+                            (rfc822-addresses-1 t))))
              (cond ((null tem))
                    ((stringp tem)
                     (setq list (cons tem list)))
                    (t
                     (setq list (nconc (nreverse tem) list)))))
-           (nreverse list)))
+             (nreverse list))))
       (and buf (kill-buffer buf))))))
 
 (provide 'rfc822)