mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-03 08:30:09 +00:00
Code Issues Releases Activity

Merge gnus-art.el and gnus-start.el after fixing buggy `error' calls.

Browse Source
This commit is contained in:
Deepak Goel 2007-12-06 17:19:22 +00:00
parent fd0c71e869
commit 23f3a1407c
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/gnus/gnus-art.el
View File

@ -3402,7 +3402,7 @@ should replace the \"Date:\" one, or should be added below it."
":"
(format "%02d" (nth 1 dtime)))))))
(error
(format "Date: %s (from Gnus)" date))))
"Date: %s (from Gnus)" date)))
(defun article-date-local (&optional highlight)
"Convert the current article date to the local timezone."

4
lisp/gnus/gnus-start.el
View File

@ -2392,8 +2392,8 @@ If FORCE is non-nil, the .newsrc file is read."
(eval form))
(error
(unless (eq (car type) 'end-of-file)
(let ((error (format "Error in %s line %d" file
(count-lines (point-min) (point)))))
(let ((error "Error in %s line %d" file
(count-lines (point-min (point)))))
(ding)
(unless (gnus-yes-or-no-p (concat error "; continue? "))
(error "%s" error)))))))))