debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-12-31 13:51:42 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: Sanitize authors and subjects in search and show

Browse source 
Authors and subjects can contain embedded, encoded control characters
like "\n" and "\t" that mess up display.  Transform control characters
into spaces everywhere we display them in search and show.
This commit is contained in:
Austin Clements 2013-10-11 09:53:39 -04:00 committed by David Bremner
parent 45444eebe5
commit a7964c86d1
3 changed files with 14 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
emacs/notmuch-lib.el
View file

@ -243,6 +243,12 @@ depending on the value of `notmuch-poll-script'."
"[No Subject]"
subject)))
(defun notmuch-sanitize (str)
"Sanitize control character in STR.
This includes newlines, tabs, and other funny characters."
(replace-regexp-in-string "[[:cntrl:]\x7f\u2028\u2029]+" " " str))
(defun notmuch-escape-boolean-term (term)
"Escape a boolean term for use in a query.

7
emacs/notmuch-show.el
View file

@ -407,7 +407,8 @@ unchanged ADDRESS if parsing fails."
message at DEPTH in the current thread."
(let ((start (point)))
(insert (notmuch-show-spaces-n (* notmuch-show-indent-messages-width depth))
(notmuch-show-clean-address (plist-get headers :From))
(notmuch-sanitize
(notmuch-show-clean-address (plist-get headers :From)))
" ("
date
") ("
@ -417,7 +418,7 @@ message at DEPTH in the current thread."
(defun notmuch-show-insert-header (header header-value)
"Insert a single header."
(insert header ": " header-value "\n"))
(insert header ": " (notmuch-sanitize header-value) "\n"))
(defun notmuch-show-insert-headers (headers)
"Insert the headers of the current message."
@ -1156,7 +1157,7 @@ function is used."
(jit-lock-register #'notmuch-show-buttonise-links)
;; Set the header line to the subject of the first message.
(setq header-line-format (notmuch-show-strip-re (notmuch-show-get-subject)))
(setq header-line-format (notmuch-sanitize (notmuch-show-strip-re (notmuch-show-get-subject))))
(run-hooks 'notmuch-show-hook))))

6
emacs/notmuch.el
View file

@ -811,11 +811,13 @@ non-authors is found, assume that all of the authors match."
(plist-get result :total)))
'face 'notmuch-search-count)))
((string-equal field "subject")
(insert (propertize (format format-string (plist-get result :subject))
(insert (propertize (format format-string
(notmuch-sanitize (plist-get result :subject)))
'face 'notmuch-search-subject)))
((string-equal field "authors")
(notmuch-search-insert-authors format-string (plist-get result :authors)))
(notmuch-search-insert-authors
format-string (notmuch-sanitize (plist-get result :authors))))
((string-equal field "tags")
(let ((tags (plist-get result :tags)))