/[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.5.24.2 by miles, Thu Sep 9 09:36:26 2004 UTC revision 1.5.24.3 by miles, Thu Nov 4 08:55:29 2004 UTC
# Line 32  Line 32 
32    
33  (defcustom gnus-use-correct-string-widths (featurep 'xemacs)  (defcustom gnus-use-correct-string-widths (featurep 'xemacs)
34    "*If non-nil, use correct functions for dealing with wide characters."    "*If non-nil, use correct functions for dealing with wide characters."
35      :version "21.4"
36    :group 'gnus-format    :group 'gnus-format
37    :type 'boolean)    :type 'boolean)
38    
39  (defcustom gnus-make-format-preserve-properties (featurep 'xemacs)  (defcustom gnus-make-format-preserve-properties (featurep 'xemacs)
40    "*If non-nil, use a replacement `format' function which preserves    "*If non-nil, use a replacement `format' function which preserves
41  text properties. This is only needed on XEmacs, as FSF Emacs does this anyway."  text properties. This is only needed on XEmacs, as FSF Emacs does this anyway."
42      :version "21.4"
43    :group 'gnus-format    :group 'gnus-format
44    :type 'boolean)    :type 'boolean)
45    
# Line 183  text properties. This is only needed on Line 185  text properties. This is only needed on
185      (insert (gnus-pp-to-string spec))))      (insert (gnus-pp-to-string spec))))
186    
187  (defun gnus-update-format-specifications (&optional force &rest types)  (defun gnus-update-format-specifications (&optional force &rest types)
188    "Update all (necessary) format specifications."    "Update all (necessary) format specifications.
189    Return a list of updated types."
190    ;; Make the indentation array.    ;; Make the indentation array.
191    ;; See whether all the stored info needs to be flushed.    ;; See whether all the stored info needs to be flushed.
192    (when (or force    (when (or force
# Line 195  text properties. This is only needed on Line 198  text properties. This is only needed on
198      (setq gnus-format-specs nil))      (setq gnus-format-specs nil))
199    
200    ;; Go through all the formats and see whether they need updating.    ;; Go through all the formats and see whether they need updating.
201    (let (new-format entry type val)    (let (new-format entry type val updated)
202      (while (setq type (pop types))      (while (setq type (pop types))
203        ;; Jump to the proper buffer to find out the value of the        ;; Jump to the proper buffer to find out the value of the
204        ;; variable, if possible.  (It may be buffer-local.)        ;; variable, if possible.  (It may be buffer-local.)
205        (save-excursion        (save-excursion
206          (let ((buffer (intern (format "gnus-%s-buffer" type)))          (let ((buffer (intern (format "gnus-%s-buffer" type))))
               val)  
207            (when (and (boundp buffer)            (when (and (boundp buffer)
208                       (setq val (symbol-value buffer))                       (setq val (symbol-value buffer))
209                       (gnus-buffer-exists-p val))                       (gnus-buffer-exists-p val))
# Line 231  text properties. This is only needed on Line 233  text properties. This is only needed on
233                  (setcar (cdr entry) val)                  (setcar (cdr entry) val)
234                  (setcar entry new-format))                  (setcar entry new-format))
235              (push (list type new-format val) gnus-format-specs))              (push (list type new-format val) gnus-format-specs))
236            (set (intern (format "gnus-%s-line-format-spec" type)) val)))))            (set (intern (format "gnus-%s-line-format-spec" type)) val)
237              (push type updated))))
238    
239    (unless (assq 'version gnus-format-specs)      (unless (assq 'version gnus-format-specs)
240      (push (cons 'version emacs-version) gnus-format-specs)))        (push (cons 'version emacs-version) gnus-format-specs))
241        updated))
242    
243  (defvar gnus-mouse-face-0 'highlight)  (defvar gnus-mouse-face-0 'highlight)
244  (defvar gnus-mouse-face-1 'highlight)  (defvar gnus-mouse-face-1 'highlight)

Legend:
Removed from v.1.5.24.2  
changed lines
  Added in v.1.5.24.3

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