emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-spec.el [emacs-unicode-2]


From: Miles Bader
Subject: [Emacs-diffs] Changes to emacs/lisp/gnus/gnus-spec.el [emacs-unicode-2]
Date: Thu, 04 Nov 2004 04:07:00 -0500

Index: emacs/lisp/gnus/gnus-spec.el
diff -c emacs/lisp/gnus/gnus-spec.el:1.5.24.2 
emacs/lisp/gnus/gnus-spec.el:1.5.24.3
*** emacs/lisp/gnus/gnus-spec.el:1.5.24.2       Thu Sep  9 09:36:26 2004
--- emacs/lisp/gnus/gnus-spec.el        Thu Nov  4 08:55:29 2004
***************
*** 32,43 ****
--- 32,45 ----
  
  (defcustom gnus-use-correct-string-widths (featurep 'xemacs)
    "*If non-nil, use correct functions for dealing with wide characters."
+   :version "21.4"
    :group 'gnus-format
    :type 'boolean)
  
  (defcustom gnus-make-format-preserve-properties (featurep 'xemacs)
    "*If non-nil, use a replacement `format' function which preserves
  text properties. This is only needed on XEmacs, as FSF Emacs does this 
anyway."
+   :version "21.4"
    :group 'gnus-format
    :type 'boolean)
  
***************
*** 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
--- 185,192 ----
      (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))
--- 198,209 ----
      (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)
--- 233,244 ----
                (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)




reply via email to

[Prev in Thread] Current Thread [Next in Thread]