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

[Kim F . Storm]

Index: emacs/lisp/gnus/gnus-util.el
diff -c emacs/lisp/gnus/gnus-util.el:1.24 emacs/lisp/gnus/gnus-util.el:1.25
*** emacs/lisp/gnus/gnus-util.el:1.24   Sun Dec 26 23:33:51 2004
--- emacs/lisp/gnus/gnus-util.el        Wed Feb  9 15:50:37 2005
***************
*** 1125,1131 ****
              (standard-output
             (lambda (c)
                 (aset ,buffer ,leng c)
!                    
               (if (= ,size (setq ,leng (1+ ,leng)))
                   (progn (write-region ,buffer nil ,file ,append 'no-msg)
                          (setq ,leng 0
--- 1125,1131 ----
              (standard-output
             (lambda (c)
                 (aset ,buffer ,leng c)
! 
               (if (= ,size (setq ,leng (1+ ,leng)))
                   (progn (write-region ,buffer nil ,file ,append 'no-msg)
                          (setq ,leng 0
***************
*** 1194,1200 ****
  Setting it to nil has no effect after the first time `gnus-byte-compile'
  is run."
    :type 'boolean
!   :version "21.4"
    :group 'gnus-various)
  
  (defun gnus-byte-compile (form)
--- 1194,1200 ----
  Setting it to nil has no effect after the first time `gnus-byte-compile'
  is run."
    :type 'boolean
!   :version "22.1"
    :group 'gnus-various)
  
  (defun gnus-byte-compile (form)
***************
*** 1560,1567 ****
                        (setq temp (cdr temp)))
                      (= (length temp) 0))
          (delete-directory old-dir)
!         (setq old-dir (file-name-as-directory 
!                        (file-truename 
                          (concat old-dir "..")))))))))
  
  
--- 1560,1567 ----
                        (setq temp (cdr temp)))
                      (= (length temp) 0))
          (delete-directory old-dir)
!         (setq old-dir (file-name-as-directory
!                        (file-truename
                          (concat old-dir "..")))))))))