Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-sum.el @ 142:1856695b1fa9 r20-2b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b5
author cvs
date Mon, 13 Aug 2007 09:33:18 +0200
parents 585fb297b004
children 318232e2a3f0
comparison
equal deleted inserted replaced
141:ea67ad3963dc 142:1856695b1fa9
4813 (let ((headers gnus-newsgroup-headers)) 4813 (let ((headers gnus-newsgroup-headers))
4814 (when (and (not gnus-save-score) 4814 (when (and (not gnus-save-score)
4815 (not non-destructive)) 4815 (not non-destructive))
4816 (setq gnus-newsgroup-scored nil)) 4816 (setq gnus-newsgroup-scored nil))
4817 ;; Set the new ranges of read articles. 4817 ;; Set the new ranges of read articles.
4818 (save-excursion
4819 (set-buffer gnus-group-buffer)
4820 (gnus-undo-force-boundary))
4818 (gnus-update-read-articles 4821 (gnus-update-read-articles
4819 group (append gnus-newsgroup-unreads gnus-newsgroup-unselected)) 4822 group (append gnus-newsgroup-unreads gnus-newsgroup-unselected))
4820 ;; Set the current article marks. 4823 ;; Set the current article marks.
4821 (gnus-update-marks) 4824 (gnus-update-marks)
4822 ;; Do the cross-ref thing. 4825 ;; Do the cross-ref thing.
8446 (defun gnus-execute-command (command &optional automatic) 8449 (defun gnus-execute-command (command &optional automatic)
8447 (save-excursion 8450 (save-excursion
8448 (gnus-article-setup-buffer) 8451 (gnus-article-setup-buffer)
8449 (set-buffer gnus-article-buffer) 8452 (set-buffer gnus-article-buffer)
8450 (setq buffer-read-only nil) 8453 (setq buffer-read-only nil)
8451 (let ((command (if automatic command (read-string "Command: " command)))) 8454 (let ((command (if automatic command
8455 (read-string "Command: " (cons command 0)))))
8452 (erase-buffer) 8456 (erase-buffer)
8453 (insert "$ " command "\n\n") 8457 (insert "$ " command "\n\n")
8454 (if gnus-view-pseudo-asynchronously 8458 (if gnus-view-pseudo-asynchronously
8455 (start-process "gnus-execute" (current-buffer) shell-file-name 8459 (start-process "gnus-execute" (current-buffer) shell-file-name
8456 shell-command-switch command) 8460 shell-command-switch command)
8639 (setq unread (cdr unread))) 8643 (setq unread (cdr unread)))
8640 (when (<= prev (cdr active)) 8644 (when (<= prev (cdr active))
8641 (push (cons prev (cdr active)) read)) 8645 (push (cons prev (cdr active)) read))
8642 (save-excursion 8646 (save-excursion
8643 (set-buffer gnus-group-buffer) 8647 (set-buffer gnus-group-buffer)
8644 (gnus-undo-force-boundary)
8645 (gnus-undo-register 8648 (gnus-undo-register
8646 `(progn 8649 `(progn
8647 (gnus-info-set-marks ',info ',(gnus-info-marks info) t) 8650 (gnus-info-set-marks ',info ',(gnus-info-marks info) t)
8648 (gnus-info-set-read ',info ',(gnus-info-read info)) 8651 (gnus-info-set-read ',info ',(gnus-info-read info))
8649 (gnus-get-unread-articles-in-group ',info (gnus-active ,group)) 8652 (gnus-get-unread-articles-in-group ',info (gnus-active ,group))