Commit 32562800 authored by David Byers's avatar David Byers
Browse files

Make it possible to remove recipients by deleting everything after the header...

Make it possible to remove recipients by deleting everything after the header keyword, but not the entire line.
parent a5d5f1b9
2001-11-19 David Byers <davby@ida.liu.se>
Make it possible to remove recipients by removing their name and
number but not the header line itself
* edit-text.el (lyskom-looking-at-header): Implement 'empty for
second argument. Limit angled headers to one line of text.
(lyskom-edit-parse-headers): Skip empty recipient headers without
warning.
2001-11-19 Ulrik Haugen <qha@lysator.liu.se>
* vars.el.in (lyskom-button-actions): added "remove" option to the
......
......@@ -1493,7 +1493,9 @@ non-nil. If MATCH-NUMBER is 'angled, only match a number inside <>."
(if (lyskom-looking-at
(concat (lyskom-get-string header)
(cond ((eq match-number 'angled)
"[^0-9]*<\\([0-9]+\\)>")
"[^0-9\n\r]*<\\([0-9]+\\)>")
((eq match-number 'empty)
"[^:]*:\\(\\s-*\\)$")
(match-number
"[^0-9]*\\([0-9]+\\)")
(nil
......@@ -1553,6 +1555,11 @@ easy to use the result in a call to `lyskom-create-misc-list'."
((lyskom-looking-at (lyskom-get-string 'comment-item-prefix))
nil)
((or (lyskom-looking-at-header 'blank-carbon-copy-prefix 'empty)
(lyskom-looking-at-header 'carbon-copy-prefix 'empty)
(lyskom-looking-at-header 'recipient-prefix 'empty))
nil)
(t (signal 'lyskom-unknown-header (list 'unknown-header (point))))))
(forward-line 1)))
(list subject misc aux)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment