/[emacs]/emacs/lisp/gnus/gnus-spec.el
ViewVC logotype

Diff of /emacs/lisp/gnus/gnus-spec.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7 by miles, Sat Sep 4 13:13:43 2004 UTC revision 1.8 by miles, Fri Oct 29 02:23:24 2004 UTC
# Line 183  text properties. This is only needed on Line 183  text properties. This is only needed on
183      (insert (gnus-pp-to-string spec))))      (insert (gnus-pp-to-string spec))))
184    
185  (defun gnus-update-format-specifications (&optional force &rest types)  (defun gnus-update-format-specifications (&optional force &rest types)
186    "Update all (necessary) format specifications."    "Update all (necessary) format specifications.
187    Return a list of updated types."
188    ;; Make the indentation array.    ;; Make the indentation array.
189    ;; See whether all the stored info needs to be flushed.    ;; See whether all the stored info needs to be flushed.
190    (when (or force    (when (or force
# Line 195  text properties. This is only needed on Line 196  text properties. This is only needed on
196      (setq gnus-format-specs nil))      (setq gnus-format-specs nil))
197    
198    ;; Go through all the formats and see whether they need updating.    ;; Go through all the formats and see whether they need updating.
199    (let (new-format entry type val)    (let (new-format entry type val updated)
200      (while (setq type (pop types))      (while (setq type (pop types))
201        ;; Jump to the proper buffer to find out the value of the        ;; Jump to the proper buffer to find out the value of the
202        ;; variable, if possible.  (It may be buffer-local.)        ;; variable, if possible.  (It may be buffer-local.)
203        (save-excursion        (save-excursion
204          (let ((buffer (intern (format "gnus-%s-buffer" type)))          (let ((buffer (intern (format "gnus-%s-buffer" type))))
               val)  
205            (when (and (boundp buffer)            (when (and (boundp buffer)
206                       (setq val (symbol-value buffer))                       (setq val (symbol-value buffer))
207                       (gnus-buffer-exists-p val))                       (gnus-buffer-exists-p val))
# Line 231  text properties. This is only needed on Line 231  text properties. This is only needed on
231                  (setcar (cdr entry) val)                  (setcar (cdr entry) val)
232                  (setcar entry new-format))                  (setcar entry new-format))
233              (push (list type new-format val) gnus-format-specs))              (push (list type new-format val) gnus-format-specs))
234            (set (intern (format "gnus-%s-line-format-spec" type)) val)))))            (set (intern (format "gnus-%s-line-format-spec" type)) val)
235              (push type updated))))
236    
237    (unless (assq 'version gnus-format-specs)      (unless (assq 'version gnus-format-specs)
238      (push (cons 'version emacs-version) gnus-format-specs)))        (push (cons 'version emacs-version) gnus-format-specs))
239        updated))
240    
241  (defvar gnus-mouse-face-0 'highlight)  (defvar gnus-mouse-face-0 'highlight)
242  (defvar gnus-mouse-face-1 'highlight)  (defvar gnus-mouse-face-1 'highlight)

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26