diff options
| author | Lars Magne Ingebrigtsen | 2011-07-17 00:11:27 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka | 2011-07-17 00:11:27 +0000 |
| commit | 64a465b2d97d00f27ed74513047ced07b798b9fd (patch) | |
| tree | 20035532445dbd0225306e38397eb0448bce2353 | |
| parent | b56414357f0437381231bebf4c38baee9d7e86a8 (diff) | |
| download | emacs-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/ChangeLog | 8 | ||||
| -rw-r--r-- | lisp/gnus/gnus-group.el | 2 | ||||
| -rw-r--r-- | lisp/gnus/message.el | 4 |
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 @@ | |||
| 1 | 2011-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 | |||
| 1 | 2011-07-15 Lars Magne Ingebrigtsen <larsi@gnus.org> | 9 | 2011-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. |
| 1315 | If nil, Message won't auto-save." | 1317 | If nil, Message won't auto-save." |
| 1316 | :group 'message-buffers | 1318 | :group 'message-buffers |