From: yamaoka <yamaoka>
Date: Mon, 11 Jan 1999 11:16:35 +0000 (+0000)
Subject: * (message-draft-coding-system): Don't Call `coding-system-p'.
X-Git-Tag: pgnus-ichikawa-199901111900~1
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=744f492896dc0bb2726049d2e54b0db9988322c8;p=elisp%2Fgnus.git-

* (message-draft-coding-system): Don't Call `coding-system-p'.
Find its default value using `find-coding-system' instead.
---

diff --git a/lisp/message.el b/lisp/message.el
index dfd744a..59ea887 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -1035,10 +1035,10 @@ The cdr of ech entry is a function for applying the face to a region.")
 
 (defvar message-draft-coding-system 
   (cond 
-   ((not (fboundp 'coding-system-p)) nil)
-   ((coding-system-p 'emacs-mule) 'emacs-mule)
-   ((coding-system-p 'escape-quoted) 'escape-quoted)
-   ((coding-system-p 'no-conversion) 'no-conversion)
+   ((not (fboundp 'find-coding-system)) nil)
+   ((find-coding-system 'emacs-mule) 'emacs-mule)
+   ((find-coding-system 'escape-quoted) 'escape-quoted)
+   ((find-coding-system 'no-conversion) 'no-conversion)
    (t nil))
   "Coding system to compose mail.")