[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-spec.el [lexbind]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-spec.el [lexbind] |
Date: |
Thu, 28 Oct 2004 22:28:01 -0400 |
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/gnus/gnus-spec.el [lexbind],
Miles Bader <=