From: 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)