[Emacs-diffs] emacs/lisp ChangeLog mail/rmail.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/02/17 02:37:42

Modified files:
        lisp           : ChangeLog 
        lisp/mail      : rmail.el 

Log message:
        (rmail-get-attr-names): Give a warning rather than an error if the
        header is corrupt.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15338&r2=1.15339
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/rmail.el?cvsroot=emacs&r1=1.505&r2=1.506

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15338
retrieving revision 1.15339
diff -u -b -r1.15338 -r1.15339
--- ChangeLog   16 Feb 2009 20:45:14 -0000      1.15338
+++ ChangeLog   17 Feb 2009 02:37:40 -0000      1.15339
@@ -1,3 +1,13 @@
+2009-02-17  Glenn Morris  <address@hidden>
+
+       * mail/rmailout.el (rmail-fields-not-to-output): Doc fix.
+       (rmail-delete-unwanted-fields): Ignore case.  Use line-beg-pos.
+       (rmail-output, rmail-output-as-seen): Change the "from-gnus" argument to
+       "not-rmail", and make it work.  Simplify.
+
+       * mail/rmail.el (rmail-get-attr-names): Give a warning rather than an
+       error if the header is corrupt.
+
 2009-02-16  Ulf Jasper  <address@hidden>
 
        * net/newst-treeview.el (newsticker--treeview-load): Offer

Index: mail/rmail.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/rmail.el,v
retrieving revision 1.505
retrieving revision 1.506
diff -u -b -r1.505 -r1.506
--- mail/rmail.el       14 Feb 2009 03:40:41 -0000      1.505
+++ mail/rmail.el       17 Feb 2009 02:37:42 -0000      1.506
@@ -2054,8 +2054,8 @@
        (nmax (length rmail-attr-array))
        result temp)
     (when value
-      (unless (= (length value) nmax)
-       (error "Corrupt attribute header in message"))
+      (if (/= (length value) nmax)
+          (message "Warning: corrupt attribute header in message")
       (dotimes (index nmax)
        (setq temp (and (not (= ?- (aref value index)))
                        (nth 1 (aref rmail-attr-array index)))
@@ -2063,7 +2063,7 @@
              (cond
               ((and temp result) (format "%s, %s" result temp))
               (temp temp)
-              (t result))))
+                 (t result)))))
       result)))
 
 (defun rmail-get-keywords (&optional msg)