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

[Miles Bader]

Index: emacs/lisp/gnus/gnus-spec.el
diff -c emacs/lisp/gnus/gnus-spec.el:1.5.18.2 
emacs/lisp/gnus/gnus-spec.el:1.5.18.3
*** emacs/lisp/gnus/gnus-spec.el:1.5.18.2       Thu Sep 16 00:12:16 2004
--- emacs/lisp/gnus/gnus-spec.el        Fri Oct 29 02:05:07 2004
***************
*** 183,189 ****
      (insert (gnus-pp-to-string spec))))
  
  (defun gnus-update-format-specifications (&optional force &rest types)
!   "Update all (necessary) format specifications."
    ;; Make the indentation array.
    ;; See whether all the stored info needs to be flushed.
    (when (or force
--- 183,190 ----
      (insert (gnus-pp-to-string spec))))
  
  (defun gnus-update-format-specifications (&optional force &rest types)
!   "Update all (necessary) format specifications.
! Return a list of updated types."
    ;; Make the indentation array.
    ;; See whether all the stored info needs to be flushed.
    (when (or force
***************
*** 195,207 ****
      (setq gnus-format-specs nil))
  
    ;; Go through all the formats and see whether they need updating.
!   (let (new-format entry type val)
      (while (setq type (pop types))
        ;; Jump to the proper buffer to find out the value of the
        ;; variable, if possible.  (It may be buffer-local.)
        (save-excursion
!       (let ((buffer (intern (format "gnus-%s-buffer" type)))
!             val)
          (when (and (boundp buffer)
                     (setq val (symbol-value buffer))
                     (gnus-buffer-exists-p val))
--- 196,207 ----
      (setq gnus-format-specs nil))
  
    ;; Go through all the formats and see whether they need updating.
!   (let (new-format entry type val updated)
      (while (setq type (pop types))
        ;; Jump to the proper buffer to find out the value of the
        ;; variable, if possible.  (It may be buffer-local.)
        (save-excursion
!       (let ((buffer (intern (format "gnus-%s-buffer" type))))
          (when (and (boundp buffer)
                     (setq val (symbol-value buffer))
                     (gnus-buffer-exists-p val))
***************
*** 231,240 ****
                (setcar (cdr entry) val)
                (setcar entry new-format))
            (push (list type new-format val) gnus-format-specs))
!         (set (intern (format "gnus-%s-line-format-spec" type)) val)))))
  
!   (unless (assq 'version gnus-format-specs)
!     (push (cons 'version emacs-version) gnus-format-specs)))
  
  (defvar gnus-mouse-face-0 'highlight)
  (defvar gnus-mouse-face-1 'highlight)
--- 231,242 ----
                (setcar (cdr entry) val)
                (setcar entry new-format))
            (push (list type new-format val) gnus-format-specs))
!         (set (intern (format "gnus-%s-line-format-spec" type)) val)
!         (push type updated))))
  
!     (unless (assq 'version gnus-format-specs)
!       (push (cons 'version emacs-version) gnus-format-specs))
!     updated))
  
  (defvar gnus-mouse-face-0 'highlight)
  (defvar gnus-mouse-face-1 'highlight)