[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-start.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-start.el |
Date: |
Tue, 14 Dec 2004 03:23:25 -0500 |
Index: emacs/lisp/gnus/gnus-start.el
diff -c emacs/lisp/gnus/gnus-start.el:1.32 emacs/lisp/gnus/gnus-start.el:1.33
*** emacs/lisp/gnus/gnus-start.el:1.32 Tue Dec 7 21:56:39 2004
--- emacs/lisp/gnus/gnus-start.el Tue Dec 14 07:29:36 2004
***************
*** 952,967 ****
;; Make sure the archive server is available to all and sundry.
(when gnus-message-archive-method
(unless (assoc "archive" gnus-server-alist)
! (push `("archive"
! nnfolder
! "archive"
! (nnfolder-directory
! ,(nnheader-concat message-directory "archive"))
! (nnfolder-active-file
! ,(nnheader-concat message-directory "archive/active"))
! (nnfolder-get-new-mail nil)
! (nnfolder-inhibit-expiry t))
! gnus-server-alist)))
;; If we don't read the complete active file, we fill in the
;; hashtb here.
--- 952,979 ----
;; Make sure the archive server is available to all and sundry.
(when gnus-message-archive-method
(unless (assoc "archive" gnus-server-alist)
! (let ((method (or (and (stringp gnus-message-archive-method)
! (gnus-server-to-method
! gnus-message-archive-method))
! gnus-message-archive-method)))
! ;; Check whether the archive method is writable.
! (unless (or (stringp method)
! (memq 'respool (assoc (format "%s" (car method))
! gnus-valid-select-methods)))
! (setq method "archive")) ;; The default.
! (push (if (stringp method)
! `("archive"
! nnfolder
! ,method
! (nnfolder-directory
! ,(nnheader-concat message-directory method))
! (nnfolder-active-file
! ,(nnheader-concat message-directory
! (concat method "/active")))
! (nnfolder-get-new-mail nil)
! (nnfolder-inhibit-expiry t))
! (cons "archive" method))
! gnus-server-alist))))
;; If we don't read the complete active file, we fill in the
;; hashtb here.