diff options
| author | Richard M. Stallman | 1994-05-19 22:45:40 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-05-19 22:45:40 +0000 |
| commit | acf3b6865a24e9cf244af490bda5259d9c306f04 (patch) | |
| tree | 2ab85963d99ee1f46b2d10c3e4e838c8beebf825 | |
| parent | 0e5671606ff576f8bfede04d8dfff101b782a8cb (diff) | |
| download | emacs-acf3b6865a24e9cf244af490bda5259d9c306f04.tar.gz emacs-acf3b6865a24e9cf244af490bda5259d9c306f04.zip | |
(gnus-group-unsubscribe-current-group):
Fail nicely if no current group name.
| -rw-r--r-- | lisp/gnus.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/gnus.el b/lisp/gnus.el index ae1bb03a0f5..cd0272da233 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el | |||
| @@ -1532,8 +1532,12 @@ Cross references (Xref: field) of articles are ignored." | |||
| 1532 | (defun gnus-group-unsubscribe-current-group () | 1532 | (defun gnus-group-unsubscribe-current-group () |
| 1533 | "Toggle subscribe from/to unsubscribe current group." | 1533 | "Toggle subscribe from/to unsubscribe current group." |
| 1534 | (interactive) | 1534 | (interactive) |
| 1535 | (gnus-group-unsubscribe-group (gnus-group-group-name)) | 1535 | (let ((group (gnus-group-group-name))) |
| 1536 | (gnus-group-next-group 1)) | 1536 | (if group |
| 1537 | (progn | ||
| 1538 | (gnus-group-unsubscribe-group group) | ||
| 1539 | (gnus-group-next-group 1)) | ||
| 1540 | (message "No Newsgroup found to \(un\)subscribe")))) | ||
| 1537 | 1541 | ||
| 1538 | (defun gnus-group-unsubscribe-group (group) | 1542 | (defun gnus-group-unsubscribe-group (group) |
| 1539 | "Toggle subscribe from/to unsubscribe GROUP. | 1543 | "Toggle subscribe from/to unsubscribe GROUP. |