Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/lisp/gnus/gnus-group.el	Mon Aug 13 08:50:06 2007 +0200
+++ b/lisp/gnus/gnus-group.el	Mon Aug 13 08:50:29 2007 +0200
@@ -762,7 +762,7 @@
   (gnus-set-default-directory)
   (gnus-update-format-specifications nil 'group 'group-mode)
   (gnus-update-group-mark-positions)
-  (gnus-make-local-hook 'post-command-hook)
+  (make-local-hook 'post-command-hook)
   (gnus-add-hook 'post-command-hook 'gnus-clear-inboxes-moved nil t)
   (when gnus-use-undo
     (gnus-undo-mode 1))
@@ -1871,7 +1871,8 @@
       (error "No group on current line"))
     (unless (setq info (gnus-get-info group))
       (error "Killed group; can't be edited"))
-    (gnus-close-group group)
+    (ignore-errors
+      (gnus-close-group group))
     (gnus-edit-form
      ;; Find the proper form to edit.
      (cond ((eq part 'method)