projects
/
gnus
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
8c6c0ff
)
Partially revert last regexp simplification, which was too simple.
author
Lars Magne Ingebrigtsen
<larsi@quimbies.gnus.org>
Mon, 30 May 2011 18:35:41 +0000
(20:35 +0200)
committer
Lars Magne Ingebrigtsen
<larsi@quimbies.gnus.org>
Mon, 30 May 2011 18:35:41 +0000
(20:35 +0200)
lisp/nnimap.el
patch
|
blob
|
history
diff --git
a/lisp/nnimap.el
b/lisp/nnimap.el
index
e2953ff
..
dc8b38b
100644
(file)
--- a/
lisp/nnimap.el
+++ b/
lisp/nnimap.el
@@
-190,7
+190,7
@@
textual parts.")
(let (article bytes lines size string)
(block nil
(while (not (eobp))
(let (article bytes lines size string)
(block nil
(while (not (eobp))
- (while (not (looking-at "\\* [0-9]+ FETCH.+UID
[0-9]+
"))
+ (while (not (looking-at "\\* [0-9]+ FETCH.+UID
\\([0-9]+\\)
"))
(delete-region (point) (progn (forward-line 1) (point)))
(when (eobp)
(return)))
(delete-region (point) (progn (forward-line 1) (point)))
(when (eobp)
(return)))
@@
-1904,7
+1904,7
@@
textual parts.")
(let (article bytes)
(block nil
(while (not (eobp))
(let (article bytes)
(block nil
(while (not (eobp))
- (while (not (looking-at "\\* [0-9]+ FETCH.+UID
[0-9]+
"))
+ (while (not (looking-at "\\* [0-9]+ FETCH.+UID
\\([0-9]+\\)
"))
(delete-region (point) (progn (forward-line 1) (point)))
(when (eobp)
(return)))
(delete-region (point) (progn (forward-line 1) (point)))
(when (eobp)
(return)))