lisp/nnheader.el nnheader-decode-field-body : New inline function

diff --git a/ChangeLog b/ChangeLog
index c87e0df..a46f127 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,15 @@
+1998-10-31  Tatsuya Ichikawa  <t-ichi@po.shiojiri.ne.jp>
+
+       * lisp/nnheader.el (nnheader-decode-field-body): New inline
+       function.
+
+       * lisp/gnus-draft.el (gnus-draft-decoding-function): Use
+       `mime-edit-decode-buffer' and `mime-decode-header-in-buffer'.
+
+       * lisp/gnus-bbdb.el (gnus-bbdb/update-record): Use
+       `nnheader-decode-field-body' instead of `mime-decode-field-body'.
+       (gnus-bbdb/extract-field-value): Ditto.
+
 1998-10-30  Keiichi Suzuki  <kei-suzu@mail.wbs.ne.jp>
 
        * lisp/gnus-bbdb.el (gnus-bbdb/update-record): Check existance of

diff --git a/lisp/nnheader.el b/lisp/nnheader.el
index fdc4de6..cb872ba 100644 (file)
--- a/lisp/nnheader.el
+++ b/lisp/nnheader.el
@@ -105,6 +105,14 @@ on your system, you could say something like:
 (defalias 'mail-header-extra 'ignore)
 (defalias 'mail-header-set-extra 'ignore)
 
+(defsubst nnheader-decode-field-body (field-body field-name
+                                                &optional mode max-column)
+  (mime-decode-field-body field-body
+                          (if (stringp field-name)
+                              (intern (capitalize field-name))
+                            field-name)
+                          mode max-column))
+
 (defsubst make-full-mail-header
   (&optional number subject from date id references chars lines xref extra)
   "Create a new mail header structure initialized with the parameters given."