Mercurial > emacs
comparison lisp/gnus/gnus-group.el @ 111441:b527d5f89f7f
gnus-group.el (gnus-group-read-ephemeral-group, gnus-group-make-group): Remove superfluous ": " from the prompt.
gnus-start.el (gnus-get-unread-articles, gnus-read-active-file): Ignore totally non-existent methods.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Mon, 08 Nov 2010 01:38:47 +0000 |
| parents | 0c7c9736f766 |
| children | faa4a1c986c6 |
comparison
equal
deleted
inserted
replaced
| 111440:b72ff43b041f | 111441:b527d5f89f7f |
|---|---|
| 2265 Return the name of the group if selection was successful." | 2265 Return the name of the group if selection was successful." |
| 2266 (interactive | 2266 (interactive |
| 2267 (list | 2267 (list |
| 2268 ;; (gnus-read-group "Group name: ") | 2268 ;; (gnus-read-group "Group name: ") |
| 2269 (gnus-group-completing-read) | 2269 (gnus-group-completing-read) |
| 2270 (gnus-read-method "From method: "))) | 2270 (gnus-read-method "From method"))) |
| 2271 ;; Transform the select method into a unique server. | 2271 ;; Transform the select method into a unique server. |
| 2272 (when (stringp method) | 2272 (when (stringp method) |
| 2273 (setq method (gnus-server-to-method method))) | 2273 (setq method (gnus-server-to-method method))) |
| 2274 (setq method | 2274 (setq method |
| 2275 `(,(car method) ,(concat (cadr method) "-ephemeral") | 2275 `(,(car method) ,(concat (cadr method) "-ephemeral") |
| 2672 If the backend supports it, the group will also be created on the | 2672 If the backend supports it, the group will also be created on the |
| 2673 server." | 2673 server." |
| 2674 (interactive | 2674 (interactive |
| 2675 (list | 2675 (list |
| 2676 (gnus-read-group "Group name: ") | 2676 (gnus-read-group "Group name: ") |
| 2677 (gnus-read-method "From method: "))) | 2677 (gnus-read-method "From method"))) |
| 2678 | 2678 |
| 2679 (when (stringp method) | 2679 (when (stringp method) |
| 2680 (setq method (or (gnus-server-to-method method) method))) | 2680 (setq method (or (gnus-server-to-method method) method))) |
| 2681 (unless encoded | 2681 (unless encoded |
| 2682 (setq name (mm-encode-coding-string | 2682 (setq name (mm-encode-coding-string |