mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-05 15:11:30 -08:00
Code Issues 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.