From 1ba3df9977c62fec69dbecdb11c2dbdd185653e4 Mon Sep 17 00:00:00 2001 From: ichikawa Date: Sat, 31 Oct 1998 08:31:52 +0000 Subject: [PATCH] lisp/nnheader.el nnheader-decode-field-body : New inline function --- ChangeLog | 12 ++++++++++++ lisp/nnheader.el | 8 ++++++++ 2 files changed, 20 insertions(+) diff --git a/ChangeLog b/ChangeLog index c87e0df..a46f127 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,15 @@ +1998-10-31 Tatsuya Ichikawa + + * 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 * 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." -- 1.7.10.4