Mercurial > emacs
changeset 105078:40ab4c53d7a6
Fix typos in condition-case handlers.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Fri, 18 Sep 2009 07:39:56 +0000 |
| parents | 927f49ae259a |
| children | dda0d3b309c7 |
| files | lisp/gnus/ChangeLog lisp/gnus/gnus-diary.el lisp/gnus/message.el lisp/gnus/nnbabyl.el lisp/gnus/nndiary.el |
| diffstat | 5 files changed, 18 insertions(+), 11 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Fri Sep 18 07:25:14 2009 +0000 +++ b/lisp/gnus/ChangeLog Fri Sep 18 07:39:56 2009 +0000 @@ -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
--- a/lisp/gnus/gnus-diary.el Fri Sep 18 07:25:14 2009 +0000 +++ b/lisp/gnus/gnus-diary.el Fri Sep 18 07:39:56 2009 +0000 @@ -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 @@ (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)) ))
--- a/lisp/gnus/message.el Fri Sep 18 07:25:14 2009 +0000 +++ b/lisp/gnus/message.el Fri Sep 18 07:39:56 2009 +0000 @@ -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)))
--- a/lisp/gnus/nnbabyl.el Fri Sep 18 07:25:14 2009 +0000 +++ b/lisp/gnus/nnbabyl.el Fri Sep 18 07:39:56 2009 +0000 @@ -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)
--- a/lisp/gnus/nndiary.el Fri Sep 18 07:25:14 2009 +0000 +++ b/lisp/gnus/nndiary.el Fri Sep 18 07:39:56 2009 +0000 @@ -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 @@ (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))