projects
/
gnus
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
a59dea6
)
Quoting From.
author
ShengHuo ZHU
<zsh@cs.rochester.edu>
Mon, 15 May 2000 13:56:16 +0000
(13:56 +0000)
committer
ShengHuo ZHU
<zsh@cs.rochester.edu>
Mon, 15 May 2000 13:56:16 +0000
(13:56 +0000)
lisp/mail-source.el
patch
|
blob
|
history
diff --git
a/lisp/mail-source.el
b/lisp/mail-source.el
index
d3d4279
..
c7c448e
100644
(file)
--- a/
lisp/mail-source.el
+++ b/
lisp/mail-source.el
@@
-626,8
+626,12
@@
This only works when `display-time' is enabled."
(goto-char (point-min))
(unless (looking-at "\n*From ")
(insert "From maildir "
- (current-time-string) "\n"))))
- (delete-file file))))
+ (current-time-string) "\n"))
+ (while (re-search-forward "^From " nil t)
+ (replace-match ">From "))
+ (goto-char (point-max))
+ (insert "\n\n"))
+ (delete-file file)))))
(incf found (mail-source-callback callback file))))))
found)))