# HG changeset patch # User Glenn Morris # Date 1253259596 0 # Node ID 40ab4c53d7a6776a17c195306312cb46f74ac88e # Parent 927f49ae259acdf3df42f239ab124ed498d94d37 Fix typos in condition-case handlers. diff -r 927f49ae259a -r 40ab4c53d7a6 lisp/gnus/ChangeLog --- 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 + + * 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 * nnrss.el (nnrss-request-article): Remove binding of diff -r 927f49ae259a -r 40ab4c53d7a6 lisp/gnus/gnus-diary.el --- 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 ;; Maintainer: Didier Verna @@ -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)) )) diff -r 927f49ae259a -r 40ab4c53d7a6 lisp/gnus/message.el --- 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))) diff -r 927f49ae259a -r 40ab4c53d7a6 lisp/gnus/nnbabyl.el --- 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) diff -r 927f49ae259a -r 40ab4c53d7a6 lisp/gnus/nndiary.el --- 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 ;; Maintainer: Didier Verna @@ -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))