projects
/
elisp
/
gnus.git-
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
d9fdf70
)
Synch to No Gnus 200406231423.
author
yamaoka
<yamaoka>
Wed, 23 Jun 2004 14:26:47 +0000
(14:26 +0000)
committer
yamaoka
<yamaoka>
Wed, 23 Jun 2004 14:26:47 +0000
(14:26 +0000)
lisp/ChangeLog
patch
|
blob
|
history
lisp/gnus-cite.el
patch
|
blob
|
history
diff --git
a/lisp/ChangeLog
b/lisp/ChangeLog
index
4ec0dc0
..
6fd6cfb
100644
(file)
--- a/
lisp/ChangeLog
+++ b/
lisp/ChangeLog
@@
-1,5
+1,10
@@
2004-06-23 Katsumi Yamaoka <yamaoka@jpl.org>
2004-06-23 Katsumi Yamaoka <yamaoka@jpl.org>
+ * gnus-cite.el (gnus-cite-parse): Don't ignore case when finding
+ ">From ". Thanks to Reiner Steib <Reiner.Steib@gmx.de>.
+
+2004-06-23 Katsumi Yamaoka <yamaoka@jpl.org>
+
* gnus-cite.el (gnus-cite-ignore-quoted-from): New user option.
(gnus-cite-parse): Ignore quoted envelope From_. Suggested by
Karl Chen <quarl@nospam.quarl.org>.
* gnus-cite.el (gnus-cite-ignore-quoted-from): New user option.
(gnus-cite-parse): Ignore quoted envelope From_. Suggested by
Karl Chen <quarl@nospam.quarl.org>.
diff --git
a/lisp/gnus-cite.el
b/lisp/gnus-cite.el
index
7e72ab0
..
bcb000c
100644
(file)
--- a/
lisp/gnus-cite.el
+++ b/
lisp/gnus-cite.el
@@
-749,7
+749,10
@@
See also the documentation for `gnus-article-highlight-citation'."
(setq end (+ begin gnus-cite-max-prefix)))
;; Ignore quoted envelope From_.
(when (and gnus-cite-ignore-quoted-from
(setq end (+ begin gnus-cite-max-prefix)))
;; Ignore quoted envelope From_.
(when (and gnus-cite-ignore-quoted-from
- (looking-at ">from "))
+ (prog2
+ (setq case-fold-search nil)
+ (looking-at ">From ")
+ (setq case-fold-search t)))
(setq end (1+ begin)))
(while (re-search-forward prefix-regexp (1- end) t)
;; Each prefix.
(setq end (1+ begin)))
(while (re-search-forward prefix-regexp (1- end) t)
;; Each prefix.