diff options
Diffstat (limited to 'lisp')
| -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. |