From ddad2b95f1c4da55d59e4452ef9e3ca8b33ebf3a Mon Sep 17 00:00:00 2001 From: morioka Date: Fri, 28 Nov 1997 16:43:53 +0000 Subject: [PATCH] (gnus-draft-decoding-function): New variable. (gnus-draft-setup): Use `gnus-draft-decoding-function'. --- lisp/gnus-draft.el | 11 +++++++++++ 1 file changed, 11 insertions(+) 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) -- 1.7.10.4