[Emacs-diffs] emacs/lisp/gnus ChangeLog gnus-diary.el message...

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/09/18 07:39:58

Modified files:
        lisp/gnus      : ChangeLog gnus-diary.el message.el nnbabyl.el 
                         nndiary.el 

Log message:
        Fix typos in condition-case handlers.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/ChangeLog?cvsroot=emacs&r1=1.829&r2=1.830
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/gnus-diary.el?cvsroot=emacs&r1=1.22&r2=1.23
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/message.el?cvsroot=emacs&r1=1.171&r2=1.172
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/nnbabyl.el?cvsroot=emacs&r1=1.18&r2=1.19
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/nndiary.el?cvsroot=emacs&r1=1.20&r2=1.21

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/gnus/ChangeLog,v
retrieving revision 1.829
retrieving revision 1.830
diff -u -b -r1.829 -r1.830
--- ChangeLog   10 Sep 2009 00:12:07 -0000      1.829
+++ ChangeLog   18 Sep 2009 07:39:56 -0000      1.830
@@ -1,3 +1,11 @@
+2009-09-18  Glenn Morris  <address@hidden>
+
+       * gnus-diary.el (gnus-diary-check-message):
+       * message.el (message-insert-formatted-citation-line):
+       * nnbabyl.el (top-level):
+       * nndiary.el (nndiary-schedule):
+       Fix typos in condition-case handlers.
+
 2009-09-10  Katsumi Yamaoka  <address@hidden>
 
        * nnrss.el (nnrss-request-article): Remove binding of

Index: gnus-diary.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/gnus/gnus-diary.el,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -b -r1.22 -r1.23
--- gnus-diary.el       5 Jan 2009 03:21:56 -0000       1.22
+++ gnus-diary.el       18 Sep 2009 07:39:57 -0000      1.23
@@ -1,7 +1,7 @@
 ;;; gnus-diary.el --- Wrapper around the NNDiary Gnus back end
 
-;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005,
-;;   2006, 2007, 2008, 2009  Free Software Foundation, Inc.
+;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
+;;   2008, 2009  Free Software Foundation, Inc.
 
 ;; Author:        Didier Verna <address@hidden>
 ;; Maintainer:    Didier Verna <address@hidden>
@@ -351,7 +351,7 @@
             (condition-case ()
                 (nndiary-parse-schedule-value value
                                               (nth 1 head) (nth 2 head))
-              (t
+              (error
                (setq invalid t)))
             ;; #### NOTE: this (along with the `gnus-diary-add-header'
             ;; function) could be rewritten in a better way, in particular
@@ -378,7 +378,7 @@
           (condition-case ()
               (nndiary-parse-schedule-value value
                                             (nth 1 head) (nth 2 head))
-            (t
+            (error
              (setq invalid t))))
         (gnus-diary-add-header (concat header ": " value))
         ))

Index: message.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/gnus/message.el,v
retrieving revision 1.171
retrieving revision 1.172
diff -u -b -r1.171 -r1.172
--- message.el  2 Sep 2009 03:04:17 -0000       1.171
+++ message.el  18 Sep 2009 07:39:57 -0000      1.172
@@ -3822,9 +3822,8 @@
                               (>= i ?a)))
                  (push i lst)
                  (push (condition-case nil
-                           (progn (format-time-string (format "%%%c" i)
-                                                      replydate))
-                         (format ">%c<" i))
+                           (format-time-string (format "%%%c" i) replydate)
+                         (error (format ">%c<" i)))
                        lst))
                (setq i (1+ i)))
              (reverse lst)))

Index: nnbabyl.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/gnus/nnbabyl.el,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -b -r1.18 -r1.19
--- nnbabyl.el  5 Jan 2009 03:22:10 -0000       1.18
+++ nnbabyl.el  18 Sep 2009 07:39:57 -0000      1.19
@@ -32,7 +32,7 @@
 (require 'nnheader)
 (condition-case nil
     (require 'rmail)
-  (t (nnheader-message
+  (error (nnheader-message
       5 "Ignore rmail errors from this file, you don't have rmail")))
 (require 'nnmail)
 (require 'nnoo)

Index: nndiary.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/gnus/nndiary.el,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -b -r1.20 -r1.21
--- nndiary.el  5 Jan 2009 03:22:11 -0000       1.20
+++ nndiary.el  18 Sep 2009 07:39:57 -0000      1.21
@@ -1,7 +1,7 @@
 ;;; nndiary.el --- A diary back end for Gnus
 
-;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004,
-;;   2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
+;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
+;;   2008, 2009  Free Software Foundation, Inc.
 
 ;; Author:        Didier Verna <address@hidden>
 ;; Maintainer:    Didier Verna <address@hidden>
@@ -368,7 +368,7 @@
           (setq head (nth 0 elt))
           (nndiary-parse-schedule (nth 0 elt) (nth 1 elt) (nth 2 elt)))
         nndiary-headers)
-      (t
+      (error
        (nnheader-report 'nndiary "X-Diary-%s header parse error: %s."
                        head (cdr arg))
        nil))