🚀 go-pugleaf

GNUS bombed (wrong-type-argument stringp nil) when I tried to save an
article without a "From" field (don't ask me why our local news
groups don't have from fields).  I traced it down to rmailout.el
calling mail-strip-quoted-names with a nil argument.  The code wants
to handle the case of a missing from field, but actually fails to do
so.

You could argue that mail-strip-quoted-names from mail-utils.el is
wrong in bombing on a nil argument.  Anyway, rmailout was easier to
fix.

diff -c2  /vol/gnu/emacs/lisp/ /vol/gnu/emacs/lisp/local/rmailout.el
*** /vol/gnu/emacs/lisp//rmailout.el	Thu Apr 14 12:36:10 1988
--- /vol/gnu/emacs/lisp/local/rmailout.el	Thu Jan 24 18:13:43 1991
***************
*** 109,113 ****
        (goto-char (point-min))
        (insert "From "
! 	      (or (mail-strip-quoted-names (mail-fetch-field "from"))
  		  "unknown")
  	      " " (current-time-string) "\n")
--- 109,117 ----
        (goto-char (point-min))
        (insert "From "
! 	      (or (if (mail-fetch-field "from")
! 		      ;; must not pass nil to mail-strip-quoted-names!
! 		      ;; sk@sun0 24-Jan-1991 18:13
! 		      (mail-strip-quoted-names (mail-fetch-field "from"))
! 		    nil)
  		  "unknown")
  	      " " (current-time-string) "\n")


--

Sebastian Kremer <sk@thp.Uni-Koeln.DE>
Institute of Theoretical Physics, University of Cologne, F. R. of Germany