Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-group.el @ 22:8fc7fe29b841 r19-15b94

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b94
author cvs
date Mon, 13 Aug 2007 08:50:29 +0200
parents d95e72db5c07
children 4103f0995bd7
comparison
equal deleted inserted replaced
21:b88636d63495 22:8fc7fe29b841
760 (setq truncate-lines t) 760 (setq truncate-lines t)
761 (setq buffer-read-only t) 761 (setq buffer-read-only t)
762 (gnus-set-default-directory) 762 (gnus-set-default-directory)
763 (gnus-update-format-specifications nil 'group 'group-mode) 763 (gnus-update-format-specifications nil 'group 'group-mode)
764 (gnus-update-group-mark-positions) 764 (gnus-update-group-mark-positions)
765 (gnus-make-local-hook 'post-command-hook) 765 (make-local-hook 'post-command-hook)
766 (gnus-add-hook 'post-command-hook 'gnus-clear-inboxes-moved nil t) 766 (gnus-add-hook 'post-command-hook 'gnus-clear-inboxes-moved nil t)
767 (when gnus-use-undo 767 (when gnus-use-undo
768 (gnus-undo-mode 1)) 768 (gnus-undo-mode 1))
769 (run-hooks 'gnus-group-mode-hook)) 769 (run-hooks 'gnus-group-mode-hook))
770 770
1869 info) 1869 info)
1870 (unless group 1870 (unless group
1871 (error "No group on current line")) 1871 (error "No group on current line"))
1872 (unless (setq info (gnus-get-info group)) 1872 (unless (setq info (gnus-get-info group))
1873 (error "Killed group; can't be edited")) 1873 (error "Killed group; can't be edited"))
1874 (gnus-close-group group) 1874 (ignore-errors
1875 (gnus-close-group group))
1875 (gnus-edit-form 1876 (gnus-edit-form
1876 ;; Find the proper form to edit. 1877 ;; Find the proper form to edit.
1877 (cond ((eq part 'method) 1878 (cond ((eq part 'method)
1878 (or (gnus-info-method info) "native")) 1879 (or (gnus-info-method info) "native"))
1879 ((eq part 'params) 1880 ((eq part 'params)