From: ichikawa <ichikawa>
Date: Sat, 31 Oct 1998 08:31:52 +0000 (+0000)
Subject: lisp/nnheader.el nnheader-decode-field-body : New inline function
X-Git-Tag: pgnus-ichikawa-199811302358~109
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1ba3df9977c62fec69dbecdb11c2dbdd185653e4;p=elisp%2Fgnus.git-

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

diff --git a/ChangeLog b/ChangeLog
index c87e0df..a46f127 100644
--- 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
--- 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."