[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-diary.el,v

[Miles Bader]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Miles Bader <miles>     07/10/28 09:18:40

Index: lisp/gnus/gnus-diary.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/gnus/gnus-diary.el,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -b -r1.16 -r1.17
--- lisp/gnus/gnus-diary.el     26 Jul 2007 05:26:57 -0000      1.16
+++ lisp/gnus/gnus-diary.el     28 Oct 2007 09:18:28 -0000      1.17
@@ -251,16 +251,17 @@
   ;; - a nice summary line format
   ;; - NNDiary specific sorting by schedule functions
   ;; In general, try not to mess with what the user might have modified.
-  (let ((posting-style (gnus-group-get-parameter group 'posting-style t)))
+
     ;; Posting style:
-    (mapcar (lambda (elt)
-             (let ((header (format "X-Diary-%s" (car elt))))
+  (let ((posting-style (gnus-group-get-parameter group 'posting-style t))
+       (headers nndiary-headers)
+       header)
+    (while headers
+      (setq header (format "X-Diary-%s" (caar headers))
+           headers (cdr headers))
                (unless (assoc header posting-style)
-                 (setq posting-style (append posting-style
-                                             `((,header "*")))))
-               ))
-           nndiary-headers)
-    (gnus-group-set-parameter group 'posting-style posting-style)
+       (setq posting-style (append posting-style (list (list header "*"))))))
+    (gnus-group-set-parameter group 'posting-style posting-style))
     ;; Summary line format:
     (unless (gnus-group-get-parameter group 'gnus-summary-line-format t)
       (gnus-group-set-parameter group 'gnus-summary-line-format
@@ -275,8 +276,7 @@
       (gnus-group-set-parameter group 'gnus-thread-sort-functions
                                '((append gnus-thread-sort-functions
                                          (list
-                                          'gnus-thread-sort-by-schedule)))))
-    ))
+                                        'gnus-thread-sort-by-schedule))))))
 
 ;; Called when a group is subscribed. This is needed because groups created
 ;; because of mail splitting are *not* created with the back end function.
@@ -347,7 +347,7 @@
           (when (re-search-forward (concat "^" header ":") nil t)
             (unless (eq (char-after) ? )
               (insert " "))
-            (setq value (buffer-substring (point) (gnus-point-at-eol)))
+            (setq value (buffer-substring (point) (point-at-eol)))
             (and (string-match "[ \t]*\\([^ \t]+\\)[ \t]*" value)
                  (setq value (match-string 1 value)))
             (condition-case ()