From: ichikawa <ichikawa>
Date: Mon, 26 Oct 1998 14:06:40 +0000 (+0000)
Subject: lisp/message.el: Add message-save-drafts function to save drafts in network code... 
X-Git-Tag: gnus-6_8-199811302358~56
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=3bb4a308777e429d98bfeaf19d1f718d7ca387bf;p=elisp%2Fgnus.git-

lisp/message.el: Add message-save-drafts function to save drafts in network code.\n lisp/pop3-fma.el: To work with flim-1.11.2
---

diff --git a/ChangeLog b/ChangeLog
index 34f46a0..a8d4b22 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+1998-10-26  Tatsuya Ichikawa  <t-ichi@po.shiojiri.ne.jp>
+
+	* lisp/message.el (message-save-drafts): New function.
+	To save drafts in network code.
+	(message-save-buffer): New variable.
+
+	* lisp/pop3-fma.el: Require `mel-b-el' if `mel-b' does not exist.
+
 1998-10-23  Katsumi Yamaoka   <yamaoka@jpl.org>
 
 	* lisp/gnus-msg.el (gnus-message-make-user-agent): New function.
diff --git a/lisp/message.el b/lisp/message.el
index 3d7ef16..bc367d3 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -4343,6 +4343,21 @@ regexp varstr."
       (setq idx (1+ idx)))
     string))
 
+(defvar message-save-buffer " *encoding")
+(defun message-save-drafts ()
+  (interactive)
+  (if (not (get-buffer message-save-buffer))
+      (get-buffer-create message-save-buffer))
+  (let ((filename buffer-file-name)
+	(buffer (current-buffer)))
+    (set-buffer message-save-buffer)
+    (erase-buffer)
+    (insert-buffer buffer)
+    (mime-edit-translate-buffer)
+    (write-region (point-min) (point-max) filename)
+    (set-buffer buffer)
+    (set-buffer-modified-p nil)))
+
 (run-hooks 'message-load-hook)
 
 (provide 'message)
diff --git a/lisp/pop3-fma.el b/lisp/pop3-fma.el
index 964db97..77d8b15 100644
--- a/lisp/pop3-fma.el
+++ b/lisp/pop3-fma.el
@@ -3,7 +3,7 @@
 ;;                                                           Yasuo Okabe
 ;; Author: Tatsuya Ichikawa <t-ichi@po.shiojiri.ne.jp>
 ;;         Yasuo OKABE <okabe@kuis.kyoto-u.ac.jp>
-;; Version: 1.13
+;; Version: 1.14
 ;; Keywords: mail , gnus , pop3
 ;;
 ;; SPECIAL THANKS
@@ -80,7 +80,9 @@
 
 (unless (and (fboundp 'pop3-fma-encode-string)
 	     (fboundp 'pop3-fma-decode-string))
-  (require 'mel-b)
+  (condition-case nil
+      (require 'mel-b-el)
+    (error (require 'mel-b)))
   (fset 'pop3-fma-encode-string 'base64-encode-string)
   (fset 'pop3-fma-decode-string 'base64-decode-string))
 
@@ -90,7 +92,7 @@
   :group 'mail
   :group 'news)
 
-(defconst pop3-fma-version-number "1.13")
+(defconst pop3-fma-version-number "1.14")
 (defconst pop3-fma-codename
 ;;  "Feel the wind"		; 0.10
 ;;  "My home town"  		; 0.11
@@ -102,7 +104,8 @@
 ;;  "Blood line"		; 1.10
 ;;  "Star ring"			; 1.11
 ;;  "Goodbye Game"		; 1.12
-  "Love is Gamble"		; 1.13
+;;  "Love is Gamble"		; 1.13
+  "Lonely"			; 1.14
   )
 (defconst pop3-fma-version (format "Multiple POP3 account utiliy for Gnus v%s - \"%s\""
 				       pop3-fma-version-number