[Emacs-diffs] Changes to emacs/lisp/mail/undigest.el

[Francesco Potortì]

Index: emacs/lisp/mail/undigest.el
diff -c emacs/lisp/mail/undigest.el:1.31 emacs/lisp/mail/undigest.el:1.32
*** emacs/lisp/mail/undigest.el:1.31    Wed Jan  8 05:13:57 2003
--- emacs/lisp/mail/undigest.el Fri Jan 31 09:01:20 2003
***************
*** 36,41 ****
--- 36,49 ----
    "\^_\^L\n0, unseen,,\n*** EOOH ***\n"
    "String for separating messages in an rmail file.")
  
+ (defcustom rmail-forward-separator-regex
+   "^----.*\\([Ff]orwarded\\|[Oo]riginal\\).*[Mm]essage"
+   "*Regexp to match the string that introduces forwarded messages.
+ This is not a header, but a string contained in the body of the message.
+ You may need to customise it for local needs."
+   :type 'regexp
+   :group 'rmail-headers)
+ 
  
  (defconst rmail-digest-methods
    '(rmail-digest-parse-mime
***************
*** 231,238 ****
              (forwarded-from (mail-fetch-field "From"))
              (forwarded-date (mail-fetch-field "Date"))
              beg end prefix forward-msg)
!         (cond ((re-search-forward
!                 "^----.*\\([Ff]orwarded\\|[Oo]riginal\\).*[Mm]essage" nil t)
                 (forward-line 1)
                 (skip-chars-forward "\n")
                 (setq beg (point))
--- 239,245 ----
              (forwarded-from (mail-fetch-field "From"))
              (forwarded-date (mail-fetch-field "Date"))
              beg end prefix forward-msg)
!         (cond ((re-search-forward rmail-forward-separator-regex nil t)
                 (forward-line 1)
                 (skip-chars-forward "\n")
                 (setq beg (point))