Re: Remove in-reply-to in received messages

Re: Remove in-reply-to in received messages

[Patrick Gundlach]

Jesper Harder <harder@myrealbox.com> writes:

Hello,

> Patrick Gundlach <newsgroup@levana.de> writes:
> > how do I remove the In-Reply-to: header in received messages?
> 
> You could do something like:
> 
> (defun jh-ignore-in-reply-to ()
>   (goto-char (point-min))
>   (when (re-search-forward "^In-Reply-To:" nil t)
>     (beginning-of-line)
>     (insert "X-Ignored-")))
> 
> (add-hook 'nnmail-prepare-incoming-header-hook 'jh-ignore-in-reply-to)
> 
> Which changes "In-Reply-To: .." to "X-Ignored-In-Reply-To: .." in
> incoming mail.


Well, I don't want to delete the In-Reply-To from all messages, only
from selected ones. I have now something extremly ugly (some
copy&paste, some of you code which works fine):


(defun pg-gnus-remove-inreplyto ()
  (let ((winconf (current-window-configuration))
	(gnus-have-all-headers t)
	gnus-article-prepare-hook
	gnus-article-decode-hook
	gnus-display-mime-function
	gnus-break-pages)
    (gnus-summary-select-article nil 'force)
    (set-buffer gnus-article-buffer)
    (gnus-article-edit-mode)
    (goto-char (point-min))
    (when (re-search-forward "^In-Reply-To:" nil t)
      (beginning-of-line)
      (insert "X-Ignored-"))
    (gnus-article-edit-done)
    (setq gnus-prev-winconf winconf))
  (gnus-summary-select-article nil 'force))


But since I have no idea of Gnus internals, this seems to work for
me. But, I have now seen, that I also have to remove the References:
header. Is there any predefined function in Gnus?

Patrick 

-- 
I'll fade into the darkness