debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-22 19:08:09 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: More functionality for `notmuch-wash-tidy-citations'.

Browse source 
Add:
- Insert a blank line before a citation if there isn't one,
- Insert a blank line after a citation if there isn't one.
This commit is contained in:
David Edmondson 2010-05-04 15:53:29 +01:00 committed by Carl Worth
parent 636925b40b
commit 5ebf5efcb0
1 changed files with 11 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
emacs/notmuch-wash.el
View file

@ -214,7 +214,17 @@ Perform four transformations on the message body:
;; text. ;; text.
(goto-char (point-min)) (goto-char (point-min))
(while (re-search-forward "\\(^>[> ]*\n\\)\\(^$\\|^[^>].*\\)" nil t) (while (re-search-forward "\\(^>[> ]*\n\\)\\(^$\\|^[^>].*\\)" nil t)
(replace-match "\\2"))) (replace-match "\\2"))
;; Insert a blank line before a citation if there isn't one.
(goto-char (point-min))
(while (re-search-forward "\\(^[^>]+\\)\n>" nil t)
(replace-match "\\1\n\n>"))
;; Insert a blank line after a citation if there isn't one.
(goto-char (point-min))
(while (re-search-forward "\\(^>.+\\)\n\\([^>]\\)" nil t)
(replace-match "\\1\n\n\\2")))
;; ;;