From: yamaoka Date: Fri, 11 Jun 1999 12:18:35 +0000 (+0000) Subject: (message-set-auto-save-file-name): Use `set-file-coding-system' statically X-Git-Tag: et-gnus-6_11_00-02~5 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=8d0ef7ac051b0efebf8838e437f688d487090885;p=elisp%2Fgnus.git- (message-set-auto-save-file-name): Use `set-file-coding-system' statically under Mule 2. (message-do-fcc): Bind `output-coding-system' to `raw-text'. (message-draft-coding-system): Default to `*junet*' under Mule 2. (TopLevel): Require `static'. --- diff --git a/lisp/message.el b/lisp/message.el index dd75d3e..ca74f6e 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -48,6 +48,7 @@ (require 'mail-abbrevs) (require 'mailabbrev)) (require 'mime-edit) +(eval-when-compile (require 'static)) ;; Avoid byte-compile warnings. (eval-when-compile @@ -1046,6 +1047,7 @@ The cdr of ech entry is a function for applying the face to a region.") (defvar message-draft-coding-system (cond + ((boundp 'MULE) '*junet*) ((not (fboundp 'find-coding-system)) nil) ((find-coding-system 'emacs-mule) 'emacs-mule) ((find-coding-system 'escape-quoted) 'escape-quoted) @@ -3098,6 +3100,7 @@ This sub function is for exclusive use of `message-send-news'." "Process Fcc headers in the current buffer." (let ((case-fold-search t) (coding-system-for-write 'raw-text) + (output-coding-system 'raw-text) list file) (save-excursion (set-buffer (get-buffer-create " *message temp*")) @@ -3881,7 +3884,9 @@ Headers already prepared in the buffer are not modified." message-auto-save-directory)) (setq buffer-auto-save-file-name (make-auto-save-file-name))) (clear-visited-file-modtime) - (setq buffer-file-coding-system message-draft-coding-system))) + (static-if (boundp 'MULE) + (set-file-coding-system message-draft-coding-system) + (setq buffer-file-coding-system message-draft-coding-system)))) (defun message-disassociate-draft () "Disassociate the message buffer from the drafts directory."