Commit 6e531d6f authored by Ulrik Haugen's avatar Ulrik Haugen
Browse files

added a button in lyskom-edit-mode for adding recipients.

parent 3c439cab
2001-11-23 Ulrik Haugen <qha@lysator.liu.se>
* edit-text.el (lyskom-edit-insert-miscs): print a button with
type add-recipient after the recipients.
(lyskom-edit-parse-headers): Ignorera 'add-recipient i headrarna.
* vars.el.in (lyskom-button-actions): new button type:
add-recipient.
* swedish-strings.el, english-strings.el (lyskom-message): new
string: add-recipient
2001-11-21 Johan Sundstrm <jhs@lysator.liu.se>
* startup.el (lyskom): A `C-u' prefix argument makes the session
......@@ -18,10 +30,10 @@
* vars.el.in (lyskom-button-actions): added "remove" option to the
recpt-type menu. Better argument names for the lambda-functions in
recpt-type
recpt-type.
* lyskom-buttons.el (lyskom-generate-button): do a car on
menu-title so we get an errormessage if it's not a cons when the
menu-title so we get an error message if it's not a cons when the
button is generated in stead of when it's used.
* swedish-strings.el, english-strings.el (lyskom-message): new
......
......@@ -209,6 +209,11 @@ nil -> Ingenting."
(lyskom-get-string 'footnote)
where-put-misc data)))
(setq misc-list (cdr misc-list))))
(lyskom-princ (lyskom-format "%[%#1@%#2s%]\n"
(lyskom-default-button 'add-recipient
edit-buffer)
(lyskom-get-string 'add-recipient))
where-put-misc)
(mapcar (function
(lambda (item)
(let ((data (lyskom-aux-item-call
......@@ -1288,7 +1293,6 @@ RECPT-TYPE is the type of recipient to add."
(defun lyskom-edit-sub-recipient/copy (recpt-no edit-buffer)
"Remove the recipient having RECPT-NO from EDIT-BUFFER"
;; XXX: lyskom-edit-sub-recipient/copy: Symbol's value as variable is void: recpt
(save-excursion
(set-buffer edit-buffer)
(let* ((headers (lyskom-edit-parse-headers))
......@@ -1559,6 +1563,7 @@ easy to use the result in a call to `lyskom-create-misc-list'."
(lyskom-looking-at-header 'carbon-copy-prefix 'empty)
(lyskom-looking-at-header 'recipient-prefix 'empty))
nil)
((lyskom-looking-at-header 'add-recipient nil) nil)
(t (signal 'lyskom-unknown-header (list 'unknown-header (point))))))
(forward-line 1)))
......
......@@ -802,6 +802,7 @@ Text %#1n has more than one root but only one of the trees will be shown.\n")
(blank-carbon-copy . "Blind Carbon copy")
(carbon-copy-prefix . "[Cc]\\([Aa]\\|[Cc]\\)")
(blank-carbon-copy-prefix . "[Bb]\\([Ll]\\|[Cc][Cc]\\)")
(add-recipient . "Add a recipient")
(secret-aux-flag . "secret")
(anonymous-aux-flag . "anonymous")
......
......@@ -796,11 +796,12 @@ M
;; From edit-text.el:
(press-C-c-C-c . "Tryck C-c C-c fr att skicka in texten.")
(recipient . "Mottagare")
(recipient-prefix . "[Mm]")
(carbon-copy . "Extra kopia")
(blank-carbon-copy . "Dold kopia")
(recipient-prefix . "[Mm]")
(carbon-copy-prefix . "[Ee]")
(blank-carbon-copy-prefix . "[Dd]")
(add-recipient . "Addera mottagare")
(secret-aux-flag . "hemlig")
(anonymous-aux-flag . "anonym")
......
......@@ -1268,6 +1268,21 @@ each time ."
(lyskom-edit-sub-recipient/copy
(car recpt-and-buffer)
(cadr recpt-and-buffer))))))
(add-recipient
add-recipient
(lambda (buffer argument text) nil)
((lyskom-button-recpt-type-recipient
. (lambda (buffer buffer text)
(set-buffer buffer)
(kom-edit-add-recipient)))
(lyskom-button-recpt-type-copy
. (lambda (buffer buffer text)
(set-buffer buffer)
(kom-edit-add-copy)))
(lyskom-button-recpt-type-bcc
. (lambda (buffer buffer text)
(set-buffer buffer)
(kom-edit-add-bcc)))))
)
"This variable defines valid button types in LysKOM. Each element is a
list consisting of (TYPE LABEL DEFAULT ACTIONS HINTS).
......
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