Mercurial > hg > xemacs-beta

comparison lisp/gnus/nnfolder.el @ 44:8d2a9b52c682 r19-15prefinal

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15prefinal
author cvs
date Mon, 13 Aug 2007 08:55:10 +0200
parents 8b8b7f3559a2
children 131b0175ea99
comparison
equal deleted inserted replaced
43:23cafc5d2038 44:8d2a9b52c682
223 'nnfolder 223 'nnfolder
224 (lambda () 224 (lambda ()
225 (let ((bufs nnfolder-buffer-alist)) 225 (let ((bufs nnfolder-buffer-alist))
226 (save-excursion 226 (save-excursion
227 (while bufs 227 (while bufs
228 (if (not (buffer-live-p (nth 1 (car bufs)))) 228 (if (not (gnus-buffer-live-p (nth 1 (car bufs))))
229 (setq nnfolder-buffer-alist 229 (setq nnfolder-buffer-alist
230 (delq (car bufs) nnfolder-buffer-alist)) 230 (delq (car bufs) nnfolder-buffer-alist))
231 (set-buffer (nth 1 (car bufs))) 231 (set-buffer (nth 1 (car bufs)))
232 (nnfolder-save-buffer) 232 (nnfolder-save-buffer)
233 (kill-buffer (current-buffer))) 233 (kill-buffer (current-buffer)))
490 (defun nnfolder-possibly-change-group (group &optional server dont-check) 490 (defun nnfolder-possibly-change-group (group &optional server dont-check)
491 ;; Change servers. 491 ;; Change servers.
492 (when (and server 492 (when (and server
493 (not (nnfolder-server-opened server))) 493 (not (nnfolder-server-opened server)))
494 (nnfolder-open-server server)) 494 (nnfolder-open-server server))
495 (unless (buffer-live-p nnfolder-current-buffer) 495 (unless (gnus-buffer-live-p nnfolder-current-buffer)
496 (setq nnfolder-current-buffer nil 496 (setq nnfolder-current-buffer nil
497 nnfolder-current-group nil)) 497 nnfolder-current-group nil))
498 ;; Change group. 498 ;; Change group.
499 (when (and group 499 (when (and group
500 (not (equal group nnfolder-current-group))) 500 (not (equal group nnfolder-current-group)))
517 517
518 ;; If the buffer is not live, make sure it isn't in the alist. If it 518 ;; If the buffer is not live, make sure it isn't in the alist. If it
519 ;; is live, verify that nobody else has touched the file since last 519 ;; is live, verify that nobody else has touched the file since last
520 ;; time. 520 ;; time.
521 (when (and nnfolder-current-buffer 521 (when (and nnfolder-current-buffer
522 (not (buffer-live-p nnfolder-current-buffer))) 522 (not (gnus-buffer-live-p nnfolder-current-buffer)))
523 (setq nnfolder-buffer-alist (delq inf nnfolder-buffer-alist) 523 (setq nnfolder-buffer-alist (delq inf nnfolder-buffer-alist)
524 nnfolder-current-buffer nil)) 524 nnfolder-current-buffer nil))
525 525
526 (setq nnfolder-current-group group) 526 (setq nnfolder-current-group group)
527 527
609 (cdr active))) 609 (cdr active)))
610 610
611 (defun nnfolder-possibly-change-folder (group) 611 (defun nnfolder-possibly-change-folder (group)
612 (let ((inf (assoc group nnfolder-buffer-alist))) 612 (let ((inf (assoc group nnfolder-buffer-alist)))
613 (if (and inf 613 (if (and inf
614 (buffer-live-p (cadr inf))) 614 (gnus-buffer-live-p (cadr inf)))
615 (set-buffer (cadr inf)) 615 (set-buffer (cadr inf))
616 (when inf 616 (when inf
617 (setq nnfolder-buffer-alist (delq inf nnfolder-buffer-alist))) 617 (setq nnfolder-buffer-alist (delq inf nnfolder-buffer-alist)))
618 (when nnfolder-group-alist 618 (when nnfolder-group-alist
619 (nnmail-save-active nnfolder-group-alist nnfolder-active-file)) 619 (nnmail-save-active nnfolder-group-alist nnfolder-active-file))