🚀 go-pugleaf

;; If there is no "from" field, (mail-fetch-field "from") returns nil,
;; which mail-strip-quoted-names can't deal with.  This modification
;; provides an explicit check.

(defun gnus-convert-article-to-rmail ()
  "Convert article in current buffer to Rmail message format."
  (let ((buffer-read-only nil))
    ;; Insert special header of Unix mail.
    (goto-char (point-min))
    (insert "From "
	    (let ((from-field (mail-fetch-field "from")))
	      (or (if from-field (mail-strip-quoted-names from-field))
		  "unknown"))
	    " " (current-time-string) "\n")
    ;; ``Quote'' "\nFrom " as "\n>From "
    ;;  (note that this isn't really quoting, as there is no requirement
    ;;   that "\n[>]+From " be quoted in the same transparent way.)
    (while (search-forward "\nFrom " nil t)
      (forward-char -5)
      (insert ?>))
    ;; Convert article to babyl format.
    (rmail-convert-to-babyl-format)
    ))

---------------------------------------------------------------------------

The "if from-field" might not be necessary, but I didn't bother to check.
In any case, this works.
					-Michael Ernst
					 mernst@theory.lcs.mit.edu