mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-22 05:51:11 -07:00
Code Issues Projects Releases Wiki Activity

Fix typos in condition-case handlers.

Browse source
This commit is contained in:
Glenn Morris 2009-09-18 07:39:56 +00:00
parent 770af4b440
commit 63348d2452
5 changed files with 18 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/gnus/ChangeLog
View file

@ -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

8
lisp/gnus/gnus-diary.el
View file

@ -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))
))

5
lisp/gnus/message.el
View file

@ -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)))

2
lisp/gnus/nnbabyl.el
View file

@ -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)

6
lisp/gnus/nndiary.el
View file

@ -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))