Changes committed gnus/lisp (ChangeLog message.el)

Modified: ChangeLog message.el

(message-confirm-send): Add appropriate version.


Index: ChangeLog
diff -u gnus/lisp/ChangeLog:7.1912 gnus/lisp/ChangeLog:7.1913
--- ChangeLog:7.1912	Mon Sep 22 12:34:03 2008
+++ ChangeLog	Wed Sep 24 20:30:17 2008
@@ -1,6 +1,11 @@
+2008-09-24  Teodor Zlatanov  <[email protected]>
+
+	* message.el (message-confirm-send): Add appropriate version.
+
 2008-09-22  Teodor Zlatanov  <[email protected]>
 
-	* mm-view.el (mm-pkcs7-enveloped-magic): Fix extra parenthesis in defvar.
+	* mm-view.el (mm-pkcs7-enveloped-magic): Fix extra parenthesis in
+	defvar.
 
 2008-09-22  Daiki Ueno  <[email protected]>
 
Index: message.el
diff -u gnus/lisp/message.el:7.269 gnus/lisp/message.el:7.270
--- message.el:7.269	Thu Sep  4 08:04:04 2008
+++ message.el	Wed Sep 24 20:30:17 2008
@@ -445,6 +445,7 @@
   "Non-nil means when sending a message ask for y/n confirmation."
   :group 'message-sending
   :group 'message-mail
+  :version "22.3" ;; No Gnus
   :link '(custom-manual "(message)Sending Variables")
   :type 'boolean)
 
@@ -6296,13 +6297,22 @@
     (if (gnus-alive-p)
 	(setq message-draft-article
 	      (nndraft-request-associate-buffer "drafts"))
+
+      ;; If Gnus were alive, draft messages would be saved in the drafts folder.
+      ;; But Gnus is not alive, so arrange to save the draft message in a
+      ;; regular file in message-auto-save-directory.  Append a unique
+      ;; time-based suffix to the filename to allow multiple drafts to be saved
+      ;; simultaneously without overwriting each other (which mimics the
+      ;; functionality of the Gnus drafts folder).
       (setq buffer-file-name (expand-file-name
+			      (concat
 			      (if (memq system-type
 					'(ms-dos ms-windows windows-nt
 						 cygwin cygwin32 win32 w32
 						 mswindows))
 				  "message"
 				"*message*")
+			       (format-time-string "-%Y%m%d-%H%M%S"))
 			      message-auto-save-directory))
       (setq buffer-auto-save-file-name (make-auto-save-file-name)))
     (clear-visited-file-modtime)