Fix typos in condition-case handlers.

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 7a140a5ee65a4fdb31eb4ce4c5ca7fc2243a2767..5b1a9e9e9e025437390b8c761a0462f418f0c1d3 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,11 @@
+2009-09-18  Glenn Morris  <rgm@gnu.org>
+
+       * 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  <yamaoka@jpl.org>
 
        * nnrss.el (nnrss-request-article): Remove binding of

diff --git a/lisp/gnus/gnus-diary.el b/lisp/gnus/gnus-diary.el
index 630066afafa2f724b6b3acc77fca18773baae940..7ec4c6735b4ebdb786e62911b2922940b771ab13 100644 (file)
--- a/lisp/gnus/gnus-diary.el
+++ b/lisp/gnus/gnus-diary.el
@@ -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 <didier@xemacs.org>
 ;; Maintainer:    Didier Verna <didier@xemacs.org>
@@ -351,7 +351,7 @@ If ARG (or prefix) is non-nil, force prompting for all fields."
             (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 @@ If ARG (or prefix) is non-nil, force prompting for all fields."
           (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))
         ))

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 3c465b1a89b080decc2127a4ed3ba1a0d648cc1a..e5d4d3a44649a65be732cb2b7d17dae71a930a48 100644 (file)
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -3822,9 +3822,8 @@ See `message-citation-line-format'."
                               (>= 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)))

diff --git a/lisp/gnus/nnbabyl.el b/lisp/gnus/nnbabyl.el
index 2b9b1e5f30c0b498996a1412618bb5e3e15772ce..40863454518f385a5cc14b3cf37fda0844c233a4 100644 (file)
--- a/lisp/gnus/nnbabyl.el
+++ b/lisp/gnus/nnbabyl.el
@@ -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)

diff --git a/lisp/gnus/nndiary.el b/lisp/gnus/nndiary.el
index 9ba8e37942e76e308c33bb695744a41447a384db..c6821b0f8db748c8fcc7ab298a8352f798c896cf 100644 (file)
--- a/lisp/gnus/nndiary.el
+++ b/lisp/gnus/nndiary.el
@@ -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 <didier@xemacs.org>
 ;; Maintainer:    Didier Verna <didier@xemacs.org>
@@ -368,7 +368,7 @@ all.  This may very well take some time.")
           (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))