aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorLars Magne Ingebrigtsen2011-07-17 00:11:27 +0000
committerKatsumi Yamaoka2011-07-17 00:11:27 +0000
commit64a465b2d97d00f27ed74513047ced07b798b9fd (patch)
tree20035532445dbd0225306e38397eb0448bce2353
parentb56414357f0437381231bebf4c38baee9d7e86a8 (diff)
downloademacs-64a465b2d97d00f27ed74513047ced07b798b9fd.tar.gz
emacs-64a465b2d97d00f27ed74513047ced07b798b9fd.zip
Merge changes made in Gnus trunk.
message.el (message-auto-save-directory): If the ~/Mail directory doesn't exist, use ~ as the auto-save directory (bug#4432). gnus-group.el (gnus-group-read-ephemeral-group): Start Gnus if it hasn't already been started.
-rw-r--r--lisp/gnus/ChangeLog8
-rw-r--r--lisp/gnus/gnus-group.el2
-rw-r--r--lisp/gnus/message.el4
3 files changed, 13 insertions, 1 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 9491612a883..32f5b702c6f 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,11 @@
12011-07-16 Lars Magne Ingebrigtsen <larsi@gnus.org>
2
3 * message.el (message-auto-save-directory): If the ~/Mail directory
4 doesn't exist, use ~ as the auto-save directory (bug#4432).
5
6 * gnus-group.el (gnus-group-read-ephemeral-group): Start Gnus if it
7 hasn't already been started.
8
12011-07-15 Lars Magne Ingebrigtsen <larsi@gnus.org> 92011-07-15 Lars Magne Ingebrigtsen <larsi@gnus.org>
2 10
3 * gnus.el (debbugs-gnu): Renamed from debbugs-emacs. 11 * gnus.el (debbugs-gnu): Renamed from debbugs-emacs.
diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el
index 2ea2a5c9bc7..b4dca3e1fc4 100644
--- a/lisp/gnus/gnus-group.el
+++ b/lisp/gnus/gnus-group.el
@@ -2282,6 +2282,8 @@ Return the name of the group if selection was successful."
2282 (gnus-group-completing-read) 2282 (gnus-group-completing-read)
2283 (gnus-read-method "From method"))) 2283 (gnus-read-method "From method")))
2284 ;; Transform the select method into a unique server. 2284 ;; Transform the select method into a unique server.
2285 (unless (gnus-alive-p)
2286 (gnus-no-server))
2285 (when (stringp method) 2287 (when (stringp method)
2286 (setq method (gnus-server-to-method method))) 2288 (setq method (gnus-server-to-method method)))
2287 (setq method 2289 (setq method
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index ffc6a680ef8..ff013e5b291 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -1310,7 +1310,9 @@ text and it replaces `self-insert-command' with the other command, e.g.
1310 :type '(repeat function)) 1310 :type '(repeat function))
1311 1311
1312(defcustom message-auto-save-directory 1312(defcustom message-auto-save-directory
1313 (file-name-as-directory (expand-file-name "drafts" message-directory)) 1313 (if (file-exists-p message-directory)
1314 (file-name-as-directory (expand-file-name "drafts" message-directory))
1315 "~/")
1314 "*Directory where Message auto-saves buffers if Gnus isn't running. 1316 "*Directory where Message auto-saves buffers if Gnus isn't running.
1315If nil, Message won't auto-save." 1317If nil, Message won't auto-save."
1316 :group 'message-buffers 1318 :group 'message-buffers