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 |
|
|
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 |
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)) |
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) |