Re: Changing the "Sender" for the summary buffer

[Bernhard Gschaider <bgschaid@nowhere.at>]

Thanks a lot.

Reiner Steib wrote:
> On Thu, Aug 30 2007, Bernhard Gschaider wrote:
> 
>> Hi!
>>
>> I have the following thing I want my Gnus to do, but before I set out
>> to try it I want to know whether it can be done with juistifyable
>> effort (my lisp is a bit rusty ....):
>>
>> I'm receiving mails from a message board software (and a filter sorts
>> them into a separate folder). Obviously the sender address is that of
>> the MessageBoard-software. Each mail starts with the message 
>> "This was posted by Isidor Pepranek on Tuesday..."
>> (the name variies obviously)
> 
> Using `nnmail-prepare-incoming-message-hook' should work, I think.
> 
> ,----[ (info "(gnus)Washing Mail") ]
> | `nnmail-prepare-incoming-message-hook'
> |      This hook is called narrowed to each message.
> `----
> 
> Untested (and a little ugly):
> 
> (defun rs-nnmail-fetch-sender-from-body ()
>   "Fetch sender's name from body and isert it into the From: header."
>   (save-excursion
>     (let ((case-fold-search t)
> 	  endofheaders
> 	  name)
>       (goto-char (point-min))
>       (search-forward "\n\n" nil t)
>       (setq endofheaders (1- (point)))
>       (re-search-forward "^This was posted by \\(.*\\) on [MTWFS]" nil t)
>       (setq name (match-string 1))
>       (goto-char endofheaders)
>       (beginning-of-line)
>       (insert
>        (format "From: %s <via-MessageBoard@YourCompany.invalid>\n" name))
>       (goto-char (point-min))
>       (re-search-forward "^From: ")
>       (beginning-of-line)
>       (insert "Old-"))))
> 
> (add-hook 'nnmail-prepare-incoming-message-hook
> 	  'rs-nnmail-fetch-sender-from-body)
>

This worked perfectly apart from the fact that I had to insert a test 
whether name was non-nil, otherwise all non-matching mails would have 
been tagged with a "From: nil <MessageBoard@>". So the finished function 
reads:

(defun rs-nnmail-fetch-sender-from-body ()
   "Fetch sender's name from body and isert it into the From: header."
   (save-excursion
     (let ((case-fold-search t)
	  (endofheaders nil)
	  name)
       (goto-char (point-min))
       (search-forward "\n\n" nil t)
       (setq endofheaders (1- (point)))
       (re-search-forward "^Posted by \\(.*\\) on [MTWFS]" nil t)
       (setq name (match-string 1))
       (if name (let ()
		 (goto-char endofheaders)
		 (beginning-of-line)
		 (insert
		  (format "From: %s <no-reply@opencfd.co.uk>\n" name))
		 (goto-char (point-min))
		 (re-search-forward "^From: ")
		 (beginning-of-line)
		 (insert "Old-"))
	))))

(I'm not posting that to show off my weak lisp-skills or to point out 
errors in the postings of people that saved me a lot of time by giving 
me a good start, but for the sake of the next one who has a similar 
problem and knows how to google)