From 0809196b1d28ca18ff25a19801463dea69161285 Mon Sep 17 00:00:00 2001 From: ichikawa Date: Sat, 31 Oct 1998 08:28:07 +0000 Subject: [PATCH] lisp/gnus-draft.el (gnus-draft-decoding-function): Use mime-edit-decode-buffer and mime-decode-header-in-buffer.\n lisp/gnus-bbdb.el: Sync up with keiichi branch --- lisp/gnus-bbdb.el | 6 ++---- lisp/gnus-draft.el | 18 ++++++++++++------ 2 files changed, 14 insertions(+), 10 deletions(-) diff --git a/lisp/gnus-bbdb.el b/lisp/gnus-bbdb.el index 1f5f782..be9a7bf 100644 --- a/lisp/gnus-bbdb.el +++ b/lisp/gnus-bbdb.el @@ -47,7 +47,7 @@ the user confirms the creation." (- (point) 2))) (let ((to (mail-fetch-field "to"))) (when to - (setq from (mime-decode-field-body to 'To 'unfolding)))))) + (setq from (nnheader-decode-field-body to 'To 'unfolding)))))) (when from (bbdb-annotate-message-sender from t (or (bbdb-invoke-hook-for-value @@ -439,9 +439,7 @@ beginning of the message headers." ;; exist only in the message. (let (value) (when (setq value (mail-fetch-field field-name)) - (mime-decode-field-body value - (intern (capitalize field-name)) - 'unfolding)))) + (nnheader-decode-field-body value field-name 'unfolding)))) ;; ;; Insinuation diff --git a/lisp/gnus-draft.el b/lisp/gnus-draft.el index 66e99ae..a0f2df9 100644 --- a/lisp/gnus-draft.el +++ b/lisp/gnus-draft.el @@ -2,8 +2,8 @@ ;; Copyright (C) 1997,98 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen -;; MORIOKA Tomohiko -;; Tatsuya Ichikawa +;; MORIOKA Tomohiko +;; Tatsuya Ichikawa ;; Keywords: mail, news, MIME, offline ;; This file is part of GNU Emacs. @@ -184,7 +184,10 @@ ;;; Utility functions (defcustom gnus-draft-decoding-function - #'mime-edit-decode-buffer + (function + (lambda () + (mime-edit-decode-buffer nil) + (mime-decode-header-in-buffer))) "*Function called to decode the message from network representation." :group 'gnus-agent :type 'function) @@ -194,6 +197,7 @@ ;;;!!!This has been fixed in recent versions of Emacs and XEmacs, ;;;!!!but for the time being, we'll just run this tiny function uncompiled. +(progn (defun gnus-draft-setup-for-editing (narticle group) (gnus-setup-message 'forward (let ((article narticle)) @@ -208,9 +212,10 @@ (forward-char -1) (insert mail-header-separator) (forward-line 1) - (message-set-auto-save-file-name))))) - + (message-set-auto-save-file-name)))))) +;; (defvar gnus-draft-send-draft-buffer " *send draft*") +(progn (defun gnus-draft-setup-for-sending (narticle group) (let ((article narticle)) (if (not (get-buffer gnus-draft-send-draft-buffer)) @@ -219,7 +224,8 @@ (erase-buffer) (if (not (gnus-request-restore-buffer article group)) (error "Couldn't restore the article") - ))) + )))) +;; For draft TEST (defun gnus-draft-article-sendable-p (article) "Say whether ARTICLE is sendable." -- 1.7.10.4