projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* gnus-uu.el (gnus-uu-check-correct-stripped-uucode): Simplify.
[gnus]
/
lisp
/
gnus-art.el
diff --git
a/lisp/gnus-art.el
b/lisp/gnus-art.el
index
e710663
..
f177b26
100644
(file)
--- a/
lisp/gnus-art.el
+++ b/
lisp/gnus-art.el
@@
-2789,19
+2789,18
@@
should replace the \"Date:\" one, or should be added below it."
;; Delete any old Date headers.
(while (re-search-forward date-regexp nil t)
(if pos
;; Delete any old Date headers.
(while (re-search-forward date-regexp nil t)
(if pos
- (delete-region (p
rogn (beginning-of-line) (point)
)
+ (delete-region (p
oint-at-bol
)
(progn (gnus-article-forward-header)
(point)))
(progn (gnus-article-forward-header)
(point)))
- (delete-region (p
rogn (beginning-of-line) (point)
)
-
(progn (gnus-article-forward-header)
-
(forward-char -1)
-
(point)))
+ (delete-region (p
oint-at-bol
)
+ (progn (gnus-article-forward-header)
+ (forward-char -1)
+ (point)))
(setq pos (point))))
(when (and (not pos)
(re-search-forward tdate-regexp nil t))
(forward-line 1))
(setq pos (point))))
(when (and (not pos)
(re-search-forward tdate-regexp nil t))
(forward-line 1))
- (when pos
- (goto-char pos))
+ (gnus-goto-char pos)
(insert (article-make-date-line date (or type 'ut)))
(unless pos
(insert "\n")
(insert (article-make-date-line date (or type 'ut)))
(unless pos
(insert "\n")