[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-start.el

[Kim F . Storm]

Index: emacs/lisp/gnus/gnus-start.el
diff -c emacs/lisp/gnus/gnus-start.el:1.33 emacs/lisp/gnus/gnus-start.el:1.34
*** emacs/lisp/gnus/gnus-start.el:1.33  Tue Dec 14 07:29:36 2004
--- emacs/lisp/gnus/gnus-start.el       Wed Feb  9 15:50:38 2005
***************
*** 37,43 ****
  (autoload 'gnus-agent-save-local "gnus-agent")
  (autoload 'gnus-agent-possibly-alter-active "gnus-agent")
  
! (eval-when-compile 
    (require 'cl)
  
    (defvar gnus-agent-covered-methods nil)
--- 37,43 ----
  (autoload 'gnus-agent-save-local "gnus-agent")
  (autoload 'gnus-agent-possibly-alter-active "gnus-agent")
  
! (eval-when-compile
    (require 'cl)
  
    (defvar gnus-agent-covered-methods nil)
***************
*** 54,60 ****
    "Whether to create backup files.
  This variable takes the same values as the `version-control'
  variable."
!   :version "21.4"
    :group 'gnus-start
    :type '(choice (const :tag "Never" never)
                 (const :tag "If existing" nil)
--- 54,60 ----
    "Whether to create backup files.
  This variable takes the same values as the `version-control'
  variable."
!   :version "22.1"
    :group 'gnus-start
    :type '(choice (const :tag "Never" never)
                 (const :tag "If existing" nil)
***************
*** 65,71 ****
  the buffer or write directly to the file.  The buffer is faster
  because all of the contents are written at once.  The direct write
  uses considerably less memory."
!   :version "21.4"
    :group 'gnus-start
    :type '(choice (const :tag "Write via buffer" t)
                   (const :tag "Write directly to file" nil)))
--- 65,71 ----
  the buffer or write directly to the file.  The buffer is faster
  because all of the contents are written at once.  The direct write
  uses considerably less memory."
!   :version "22.1"
    :group 'gnus-start
    :type '(choice (const :tag "Write via buffer" t)
                   (const :tag "Write directly to file" nil)))
***************
*** 299,305 ****
  (defcustom gnus-subscribe-newsgroup-hooks nil
    "*Hooks run after you subscribe to a new group.
  The hooks will be called with new group's name as argument."
!   :version "21.4"
    :group 'gnus-group-new
    :type 'hook)
  
--- 299,305 ----
  (defcustom gnus-subscribe-newsgroup-hooks nil
    "*Hooks run after you subscribe to a new group.
  The hooks will be called with new group's name as argument."
!   :version "22.1"
    :group 'gnus-group-new
    :type 'hook)
  
***************
*** 406,412 ****
  
  (defcustom gnus-get-top-new-news-hook nil
    "A hook run just before Gnus checks for new news globally."
!   :version "21.4"
    :group 'gnus-group-new
    :type 'hook)
  
--- 406,412 ----
  
  (defcustom gnus-get-top-new-news-hook nil
    "A hook run just before Gnus checks for new news globally."
!   :version "22.1"
    :group 'gnus-group-new
    :type 'hook)
  
***************
*** 1906,1912 ****
                              (setcdr range (1- article))
                              (setq modified t)
                              ranges))))))))
!                   
      (when modified
        (when (eq modified 'remove-null)
          (setq r (delq nil r)))
--- 1906,1912 ----
                              (setcdr range (1- article))
                              (setq modified t)
                              ranges))))))))
! 
      (when modified
        (when (eq modified 'remove-null)
          (setq r (delq nil r)))
***************
*** 2307,2313 ****
                                    t)))))
  
                (funcall func convert-to)))
!           (gnus-dribble-enter 
             (format ";Converted gnus from version '%s' to '%s'."
                     gnus-newsrc-file-version gnus-version)))))))
  
--- 2307,2313 ----
                                    t)))))
  
                (funcall func convert-to)))
!           (gnus-dribble-enter
             (format ";Converted gnus from version '%s' to '%s'."
                     gnus-newsrc-file-version gnus-version)))))))