/[emacs]/emacs/lisp/mail/undigest.el
ViewVC logotype

Diff of /emacs/lisp/mail/undigest.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.31 by kfstorm, Wed Jan 8 10:13:57 2003 UTC revision 1.32 by pot, Fri Jan 31 14:01:20 2003 UTC
# Line 36  Line 36 
36    "\^_\^L\n0, unseen,,\n*** EOOH ***\n"    "\^_\^L\n0, unseen,,\n*** EOOH ***\n"
37    "String for separating messages in an rmail file.")    "String for separating messages in an rmail file.")
38    
39    (defcustom rmail-forward-separator-regex
40      "^----.*\\([Ff]orwarded\\|[Oo]riginal\\).*[Mm]essage"
41      "*Regexp to match the string that introduces forwarded messages.
42    This is not a header, but a string contained in the body of the message.
43    You may need to customise it for local needs."
44      :type 'regexp
45      :group 'rmail-headers)
46    
47    
48  (defconst rmail-digest-methods  (defconst rmail-digest-methods
49    '(rmail-digest-parse-mime    '(rmail-digest-parse-mime
# Line 231  following the containing message." Line 239  following the containing message."
239                (forwarded-from (mail-fetch-field "From"))                (forwarded-from (mail-fetch-field "From"))
240                (forwarded-date (mail-fetch-field "Date"))                (forwarded-date (mail-fetch-field "Date"))
241                beg end prefix forward-msg)                beg end prefix forward-msg)
242            (cond ((re-search-forward            (cond ((re-search-forward rmail-forward-separator-regex nil t)
                   "^----.*\\([Ff]orwarded\\|[Oo]riginal\\).*[Mm]essage" nil t)  
243                   (forward-line 1)                   (forward-line 1)
244                   (skip-chars-forward "\n")                   (skip-chars-forward "\n")
245                   (setq beg (point))                   (setq beg (point))

Legend:
Removed from v.1.31  
changed lines
  Added in v.1.32

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26