comparison lisp/mail/undigest.el @ 49097:217ecd0c470e

(unforward-rmail-message): Skip all newlines after the initial separator. (unforward-rmail-message): Forwarded-From: and Forwarded-Date: instead of Forwarded-from: and Forwarded-date:.

49096:63bc313a5a53

	      (forwarded-date (mail-fetch-field "Date"))
	      beg end prefix forward-msg n)
	  (cond ((re-search-forward
		  "^----.*\\([Ff]orwarded\\|[Oo]riginal\\).*[Mm]essage" nil t)
		 (forward-line 1)
		 (setq beg (point))
		 (setq end (if (re-search-forward "^----.*[^- \t\n]" nil t)
			       (match-beginning 0) (point-max)))
		 (setq forward-msg
		       (replace-regexp-in-string

	  (widen)
	  (goto-char (rmail-msgend rmail-current-message))
	  (narrow-to-region (point) (point))
	  (insert rmail-mail-separator)
	  (narrow-to-region (point) (point))
	  (insert "Forwarded-from: " forwarded-from "\n")
	  (insert "Forwarded-date: " forwarded-date "\n")
	  (insert forward-msg)
	  (save-restriction
	    (goto-char (point-min))
	    (re-search-forward "\n$" nil 'move)
	    (narrow-to-region (point-min) (point))

49097:217ecd0c470e

	      (forwarded-date (mail-fetch-field "Date"))
	      beg end prefix forward-msg n)
	  (cond ((re-search-forward
		  "^----.*\\([Ff]orwarded\\|[Oo]riginal\\).*[Mm]essage" nil t)
		 (forward-line 1)
		 (skip-chars-forward "\n")
		 (setq beg (point))
		 (setq end (if (re-search-forward "^----.*[^- \t\n]" nil t)
			       (match-beginning 0) (point-max)))
		 (setq forward-msg
		       (replace-regexp-in-string

	  (widen)
	  (goto-char (rmail-msgend rmail-current-message))
	  (narrow-to-region (point) (point))
	  (insert rmail-mail-separator)
	  (narrow-to-region (point) (point))
	  (insert "Forwarded-From: " forwarded-from "\n")
	  (insert "Forwarded-Date: " forwarded-date "\n")
	  (insert forward-msg)
	  (save-restriction
	    (goto-char (point-min))
	    (re-search-forward "\n$" nil 'move)
	    (narrow-to-region (point-min) (point))