From: morioka <morioka>
Date: Fri, 28 Nov 1997 16:43:53 +0000 (+0000)
Subject: (gnus-draft-decoding-function): New variable.
X-Git-Tag: gnus-6_7-tomo-199811302358~284
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ddad2b95f1c4da55d59e4452ef9e3ca8b33ebf3a;p=elisp%2Fgnus.git-

(gnus-draft-decoding-function): New variable.
(gnus-draft-setup): Use `gnus-draft-decoding-function'.
---

diff --git a/lisp/gnus-draft.el b/lisp/gnus-draft.el
index b17356b..28e2046 100644
--- a/lisp/gnus-draft.el
+++ b/lisp/gnus-draft.el
@@ -138,6 +138,16 @@
 
 ;;; Utility functions
 
+(defcustom gnus-draft-decoding-function
+  (function
+   (lambda ()
+     (mime-edit-decode-buffer nil)
+     (eword-decode-header)
+     ))
+  "Function called to decode the message from network representation."
+  :group 'gnus-agent
+  :type 'function)
+
 ;;;!!!If this is byte-compiled, it fails miserably.
 ;;;!!!I have no idea why.
 
@@ -151,6 +161,7 @@
       (if (not (gnus-request-restore-buffer article group))
 	  (error "Couldn't restore the article")
 	;; Insert the separator.
+	(funcall gnus-draft-decoding-function)
 	(goto-char (point-min))
 	(search-forward "\n\n")
 	(forward-char -1)