diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-05-19 22:45:40 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-05-19 22:45:40 +0000 |
| commit | 6ec8cb645a22ec495caa80686988f04b32b2fb6f (patch) | |
| tree | e9d5c6dee9dcc4c3a4a6744e1e3b7fc43f266b14 | |
| parent | a13201bd7339c4cee4548e99ab60872d030d3820 (diff) | |
| download | emacs-6ec8cb645a22ec495caa80686988f04b32b2fb6f.tar.gz | |
(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." (defun gnus-group-unsubscribe-current-group () "Toggle subscribe from/to unsubscribe current group." (interactive) - (gnus-group-unsubscribe-group (gnus-group-group-name)) - (gnus-group-next-group 1)) + (let ((group (gnus-group-group-name))) + (if group + (progn + (gnus-group-unsubscribe-group group) + (gnus-group-next-group 1)) + (message "No Newsgroup found to \(un\)subscribe")))) (defun gnus-group-unsubscribe-group (group) "Toggle subscribe from/to unsubscribe GROUP. |