(rfc2047-header-encoding-alist): Add Mail-Followup-To

and Mail-Copies-To to address-mime.
(rfc2047-narrow-to-field): Use rfc2047-point-at-bol.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a49fae4..07fac41 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2003-07-23  Jesper Harder  <harder@ifa.au.dk>
+
+       * rfc2047.el (rfc2047-header-encoding-alist): Add Mail-Followup-To
+       and Mail-Copies-To to address-mime.
+       (rfc2047-narrow-to-field): Use rfc2047-point-at-bol.
+
 2003-07-19  Jesper Harder  <harder@ifa.au.dk>
 
        * mm-util.el (mm-coding-system-priorities): Docstring improvement.

diff --git a/lisp/rfc2047.el b/lisp/rfc2047.el
index e7a257c..5955524 100644 (file)
--- a/lisp/rfc2047.el
+++ b/lisp/rfc2047.el
@@ -71,8 +71,8 @@ Value is what BODY returns."
   '(("Newsgroups" . nil)
     ("Followup-To" . nil)
     ("Message-ID" . nil)
-    ("\\(Resent-\\)?\\(From\\|Cc\\|To\\|Bcc\\|Reply-To\\|Sender\\)" .
-     address-mime)
+    ("\\(Resent-\\)?\\(From\\|Cc\\|To\\|Bcc\\|Reply-To\\|Sender\
+\\|Mail-Followup-To\\|Mail-Copies-To\\)" . address-mime)
     (t . mime))
   "*Header/encoding method alist.
 The list is traversed sequentially.  The keys can either be
@@ -133,9 +133,7 @@ quoted-printable and base64 respectively.")
    (progn
      (forward-line 1)
      (if (re-search-forward "^[^ \n\t]" nil t)
-        (progn
-          (beginning-of-line)
-          (point))
+        (rfc2047-point-at-bol)
        (point-max))))
   (goto-char (point-min)))