martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(gnus-group-unsubscribe-current-group):

Browse Source 
Fail nicely if no current group name.
This commit is contained in:
Richard M. Stallman
1994-05-19 22:45:40 +00:00
parent 0e5671606f
commit acf3b6865a
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/gnus.el
View File

@@ -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.