From: yamaoka <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/cgi-bin/gitweb.cgi?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."