Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-topic.el @ 140:585fb297b004 r20-2b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b4
author cvs
date Mon, 13 Aug 2007 09:32:43 +0200
parents cca96a509cfe
children 318232e2a3f0
comparison
equal deleted inserted replaced
139:2b5203979d01 140:585fb297b004
545 (defun gnus-topic-update-topic () 545 (defun gnus-topic-update-topic ()
546 "Update all parent topics to the current group." 546 "Update all parent topics to the current group."
547 (when (and (eq major-mode 'gnus-group-mode) 547 (when (and (eq major-mode 'gnus-group-mode)
548 gnus-topic-mode) 548 gnus-topic-mode)
549 (let ((group (gnus-group-group-name)) 549 (let ((group (gnus-group-group-name))
550 (m (point-marker))
550 (buffer-read-only nil)) 551 (buffer-read-only nil))
551 (when (and group 552 (when (and group
552 (gnus-get-info group) 553 (gnus-get-info group)
553 (gnus-topic-goto-topic (gnus-current-topic))) 554 (gnus-topic-goto-topic (gnus-current-topic)))
554 (gnus-topic-update-topic-line (gnus-group-topic-name)) 555 (gnus-topic-update-topic-line (gnus-group-topic-name))
555 (gnus-group-goto-group group) 556 (goto-char m)
557 (set-marker m nil)
556 (gnus-group-position-point))))) 558 (gnus-group-position-point)))))
557 559
558 (defun gnus-topic-goto-missing-group (group) 560 (defun gnus-topic-goto-missing-group (group)
559 "Place point where GROUP is supposed to be inserted." 561 "Place point where GROUP is supposed to be inserted."
560 (let* ((topic (gnus-group-topic group)) 562 (let* ((topic (gnus-group-topic group))