🚀 go-pugleaf

In GNU Emacs 19.25.93.1 (sparc-sun-sunos4shr) of Wed Aug 10 1994 on naggum.no

two problems:

if `rmail-message-filter' should act on headers that are also matched by
`rmail-ignored-headers', they are removed by `rmail-ignored-headers' before
the filter is allowed to run.  the fix is to run the filter before the
headers are removed.

if `mail-header-separator' is the empty string, `rmail-forward' will insert
the forwarded message after the first line of the text, since the search
for the header separator will match the first line in the buffer.  the fix
is to anchor the regular expression on both sides.

best regards,
</Erik>

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

Wed Aug 10 04:39:22 1994  Erik Naggum  <erik@naggum.no>

	* rmail.el (rmail-forward): anchor `mail-header-separator' on both
	sides to match whole line, not just initial substring.
	(rmail-reformat-message): allow `mail-message-filter' to run with
	all headers present; clear headers after funcall.

*** lisp/rmail.el	Thu Aug  4 22:31:28 1994
--- lisp/rmail.el	Wed Aug 10 02:46:33 1994
***************
*** 1116,1123 ****
        (insert str "*** EOOH ***\n")
        (narrow-to-region (point) (- (buffer-size) delta)))
      (goto-char (point-min))
!     (if rmail-ignored-headers (rmail-clear-headers))
!     (if rmail-message-filter (funcall rmail-message-filter))))
  
  (defun rmail-clear-headers ()
    (if (and (or (boundp 'rmail-kept-headers)
--- 1116,1123 ----
        (insert str "*** EOOH ***\n")
        (narrow-to-region (point) (- (buffer-size) delta)))
      (goto-char (point-min))
!     (if rmail-message-filter (funcall rmail-message-filter))
!     (if rmail-ignored-headers (rmail-clear-headers))))
  
  (defun rmail-clear-headers ()
    (if (and (or (boundp 'rmail-kept-headers)
***************
*** 2009,2015 ****
  	    ;; Insert after header separator--before signature if any.
  	    (goto-char (point-min))
  	    (search-forward-regexp
! 	     (concat "^" (regexp-quote mail-header-separator)))
  	    (forward-line 1)
  	    (insert-buffer forward-buffer))))))
  
--- 2009,2015 ----
  	    ;; Insert after header separator--before signature if any.
  	    (goto-char (point-min))
  	    (search-forward-regexp
! 	     (concat "^" (regexp-quote mail-header-separator) "$"))
  	    (forward-line 1)
  	    (insert-buffer forward-buffer))))))