mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-20 10:23:57 +00:00
Code Issues Releases Activity

nnimap.el (nnimap-last-response-string): Fix last unfolding fix.

Browse Source
This commit is contained in:
Lars Magne Ingebrigtsen 2010-11-25 23:43:16 +00:00 committed by Katsumi Yamaoka
parent 443ecb08cd
commit 733de8e2d0
2 changed files with 21 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lisp/gnus/ChangeLog
View File

@ -7,6 +7,7 @@
* nnimap.el (nnimap-unfold-quoted-lines): Refactor out.
(nnimap-last-response-string): Unfold quoted lines, if they exist.
(nnimap-last-response-string): Fix last unfolding fix.
2010-11-25 Katsumi Yamaoka <yamaoka@jpl.org>

32
lisp/gnus/nnimap.el
View File

@ -180,7 +180,14 @@ textual parts.")
(when (eobp)
(return)))
(setq article (match-string 1))
(nnimap-unfold-quoted-lines)
;; Unfold quoted {number} strings.
(while (re-search-forward "[^]][ (]{\\([0-9]+\\)}\r?\n"
(1+ (line-end-position)) t)
(setq size (string-to-number (match-string 1)))
(delete-region (+ (match-beginning 0) 2) (point))
(setq string (buffer-substring (point) (+ (point) size)))
(delete-region (point) (+ (point) size))
(insert (format "%S" string)))
(setq bytes (nnimap-get-length)
lines nil)
(beginning-of-line)
@ -212,12 +219,13 @@ textual parts.")
(defun nnimap-unfold-quoted-lines ()
;; Unfold quoted {number} strings.
(while (re-search-forward "[^]][ (]{\\([0-9]+\\)}\r\n"
(1+ (line-end-position)) t)
(setq size (string-to-number (match-string 1)))
(delete-region (+ (match-beginning 0) 2) (point))
(setq string (delete-region (point) (+ (point) size)))
(insert (format "%S" string))))
(let (size string)
(while (re-search-forward " {\\([0-9]+\\)}\r?\n" nil t)
(setq size (string-to-number (match-string 1)))
(delete-region (1+ (match-beginning 0)) (point))
(setq string (buffer-substring (point) (+ (point) size)))
(delete-region (point) (+ (point) size))
(insert (format "%S" string)))))
(defun nnimap-get-length ()
(and (re-search-forward "{\\([0-9]+\\)}" (line-end-position) t)
@ -1607,11 +1615,11 @@ textual parts.")
(let ((end (point)))
;; Unfold quoted {num} lines, if they exist.
(when (search-backward "}" nil t)
(save-excursion
(save-restriction
(narrow-to-region (point-min) end)
(goto-char (point-min))
(nnimap-unfold-quoted-lines))))
(save-restriction
(narrow-to-region (point-min) end)
(goto-char (point-min))
(nnimap-unfold-quoted-lines)
(goto-char (setq end (point-max)))))
(forward-line -1)
(when (not (bobp))
(forward-line -1)