emacs-diffs
[Top][All Lists]
Advanced

[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.




reply via email to

[Prev in Thread] Current Thread [Next in Thread]