*** empty log message ***

[gnus] / lisp / gnus-spec.el

diff --git a/lisp/gnus-spec.el b/lisp/gnus-spec.el
index bc2d461..e132340 100644 (file)
--- a/lisp/gnus-spec.el
+++ b/lisp/gnus-spec.el
@@ -1,5 +1,5 @@
 ;;; gnus-spec.el --- format spec functions for Gnus
-;; Copyright (C) 1996 Free Software Foundation, Inc.
+;; Copyright (C) 1996,97 Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
 ;; Keywords: news
@@ -115,12 +115,12 @@
 (defvar gnus-group-line-format-spec
   (gnus-byte-code 'gnus-group-line-format-spec))
 
-(defvar gnus-format-specs 
+(defvar gnus-format-specs
   `((version . ,emacs-version)
     (group "%M\%S\%p\%P\%5y: %(%g%)%l\n" ,gnus-group-line-format-spec)
     (summary-dummy "*  %(:                          :%) %S\n"
                   ,gnus-summary-dummy-line-format-spec)
-    (summary "%U\%R\%z\%I\%(%[%4L: %-20,20n%]%) %s\n" 
+    (summary "%U\%R\%z\%I\%(%[%4L: %-20,20n%]%) %s\n"
             ,gnus-summary-line-format-spec))
   "Alist of format specs.")
 
@@ -184,33 +184,33 @@
                     (buffer-name (get-buffer val)))
            (set-buffer (get-buffer val)))
          (setq new-format (symbol-value
-                           (intern (format "gnus-%s-line-format" type))))))
-      (setq entry (cdr (assq type gnus-format-specs)))
-      (if (and (car entry)
-              (equal (car entry) new-format))
-         ;; Use the old format.
-         (set (intern (format "gnus-%s-line-format-spec" type))
-              (cadr entry))
-       ;; This is a new format.
-       (setq val
-             (if (not (stringp new-format))
-                 ;; This is a function call or something.
-                 new-format
-               ;; This is a "real" format.
-               (gnus-parse-format
-                new-format
-                (symbol-value
-                 (intern (format "gnus-%s-line-format-alist"
-                                 (if (eq type 'article-mode)
-                                     'summary-mode type))))
-                (not (string-match "mode$" (symbol-name type))))))
-       ;; Enter the new format spec into the list.
-       (if entry
-           (progn
-             (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))))
+                           (intern (format "gnus-%s-line-format" type)))))
+       (setq entry (cdr (assq type gnus-format-specs)))
+       (if (and (car entry)
+                (equal (car entry) new-format))
+           ;; Use the old format.
+           (set (intern (format "gnus-%s-line-format-spec" type))
+                (cadr entry))
+         ;; This is a new format.
+         (setq val
+               (if (not (stringp new-format))
+                   ;; This is a function call or something.
+                   new-format
+                 ;; This is a "real" format.
+                 (gnus-parse-format
+                  new-format
+                  (symbol-value
+                   (intern (format "gnus-%s-line-format-alist"
+                                   (if (eq type 'article-mode)
+                                       'summary-mode type))))
+                  (not (string-match "mode$" (symbol-name type))))))
+         ;; Enter the new format spec into the list.
+         (if entry
+             (progn
+               (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)))
@@ -351,7 +351,7 @@
 
        ;; Parse this spec fully.
        (while
-           (cond 
+           (cond
             ((looking-at "\\([-.0-9]+\\)\\(,[-0-9]+\\)?")
              (setq pad-width (string-to-number (match-string 1)))
              (when (match-beginning 2)
@@ -439,7 +439,7 @@
            (insert elem-type)
            (push (car elem) flist))))
       (setq fstring (buffer-string)))
-    
+
     ;; Do some postprocessing to increase efficiency.
     (setq
      result