🚀 go-pugleaf

[hoping to post to both "bug" and "gnus" groups]

Well, in order to get the "To:" name stripped in a GNUS mail reply
buffer headed to the fakemail program (like vm-strip-reply-headers in
the VM mailer), I did (warning, I'm a drunk e-lisp driver):

near the bottom of .emacs:

;hack to not screw up fakemail on a GNUS reply
(load "rnewspost")
(load "gmail-fix") ;uses mail-strip-quoted-names in news-mail-reply

where gmail-fix.el consists of:

(defun news-mail-reply ()
  "Mail a reply to the author of the current article.
While composing the reply, use \\[news-reply-yank-original] to yank the
original message into it.
\"fixed\" by Dan_Jacobson@ATT.COM 2/1991 to do mail-strip-quoted-names
so not to bomb with fakemail."
  (interactive)
  (let (from cc subject date to reply-to
	     (buffer (current-buffer)))
    (save-restriction
      (narrow-to-region (point-min) (progn (goto-line (point-min))
					   (search-forward "\n\n")
					   (- (point) 1)))
      (setq from (mail-fetch-field "from")
	    subject (mail-fetch-field "subject")
	    reply-to (mail-fetch-field "reply-to")
	    date (mail-fetch-field "date"))
      (setq to from)
      (pop-to-buffer "*mail*")
      (mail nil
;;	    (if reply-to reply-to to)
;;Dan Jacobson 2/1991 to not screw up fakemail call:
	    (mail-strip-quoted-names (if reply-to reply-to to))	;DJ

	    subject
	    (let ((stop-pos (string-match "  *at \\|  *@ \\| *(\\| *<" from)))
	      (concat (if stop-pos (substring from 0 stop-pos) from)
		      "'s message of "
		      date))
	    nil
	   buffer))))

;; Dan_Jacobson@ATT.COM  Naperville IL USA  +1 708-979-6364