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