Commit fb8f0c54 authored by Ulrik Haugen's avatar Ulrik Haugen
Browse files

You can change the recipient type for a recipient in the edit-buffer with the

mouse.
parent 0c5ab87c
2001-11-13 Ulrik Haugen <qha@lysator.liu.se>
* vars.el.in (lyskom-button-actions): added button-type:
recpt-type.
* edit-text.el (lyskom-edit-add-recipient/copy): new paramter:
recpt - the conference to add, if set don't prompt.
(lyskom-edit-insert-misc-conf): add set recipient selection menu
properties for the recipient spec.
* english-strings.el, swedish-strings.el (lyskom-message):
recpt-type-button strings. Removed trailing colon from recipient,
carbon-copy and blank-carbon-copy strings
2001-10-16 Ulrik Haugen <qha@lysator.liu.se>
* lyskom-buttons.el (lyskom-default-button): don't bother to set
......
......@@ -239,18 +239,27 @@ footn-to -> Fotnot till text %d."
(defun lyskom-edit-insert-misc-conf (conf-stat string stream number)
"Insert Mottagare: or Extra kopia: in edit-buffer.
Args: CONF-STAT STRING STREAM NUMBER
"Insert Recipient:, Carbon copy: or Blind Carbon copy: in
edit-buffer.
CONF-STAT is the conf-stat of the conference that is about to be put in,
STRING is the string that is inserted.
STREAM is the buffer or a marker telling the position.
NUMBER is the number of the person. Used if the conf-stat is nil."
(lyskom-princ (lyskom-format "%#1s <%#2m> %#3M\n"
string
(or conf-stat number)
(or conf-stat ""))
stream))
(add-text-properties
0 (length string)
(lyskom-default-button
'recpt-type
(list (or (conf-stat->conf-no conf-stat)
number)
(marker-buffer stream))
(list (lyskom-get-string 'recpt-type-popup-title)
string))
string)
(lyskom-princ (lyskom-format "%#1s: <%#2m> %#3M\n"
string
(or conf-stat number)
(or conf-stat ""))
stream))
(defun lyskom-edit-get-commented-author (text-stat string stream number)
(if text-stat
......
......@@ -796,10 +796,10 @@ Text %#1n has more than one root but only one of the trees will be shown.\n")
; From edit-text.el:
(press-C-c-C-c . "Enter C-c C-c to post the text.")
(recipient . "Recipient:")
(recipient . "Recipient")
(recipient-prefix . "[Rr]")
(carbon-copy . "Carbon copy:")
(blank-carbon-copy . "Blind Carbon copy:")
(carbon-copy . "Carbon copy")
(blank-carbon-copy . "Blind Carbon copy")
(carbon-copy-prefix . "[Cc]\\([Aa]\\|[Cc]\\)")
(blank-carbon-copy-prefix . "[Bb]\\([Ll]\\|[Cc][Cc]\\)")
......@@ -1255,6 +1255,7 @@ Text:
(url-popup-title . "URL %#1s")
(aux-popup-title . "Extra information")
(timestamp-popup-title . "Timestamp %#1s")
(recpt-type-popup-title . "Recipient type: %#1s")
(generic-popup-title . "%#1s")
(who-i-am-not-present . "%#1P (not in any conference) \n")
......@@ -1566,6 +1567,9 @@ You must become an active member of the conference to enter it.\n")
(lyskom-button-info-aux-action . "Information")
(lyskom-button-delete-aux-action . "Delete")
(lyskom-button-copy-timestamp-action . "Copy")
(lyskom-button-recpt-type-recipient . "Recipient")
(lyskom-button-recpt-type-copy . "Carbon copy")
(lyskom-button-recpt-type-bcc . "Blind Carbon copy")
(lyskom-edit-toggle-secret-aux-action . "Toggle \"secret\"")
(lyskom-edit-toggle-anonymous-aux-action . "Toggle \"anonymous\"")
(lyskom-edit-toggle-inherit-aux-action . "Toggle \"inherited\"")
......
......@@ -795,10 +795,10 @@ M
;; From edit-text.el:
(press-C-c-C-c . "Tryck C-c C-c fr att skicka in texten.")
(recipient . "Mottagare:")
(recipient . "Mottagare")
(recipient-prefix . "[Mm]")
(carbon-copy . "Extra kopia:")
(blank-carbon-copy . "Dold kopia:")
(carbon-copy . "Extra kopia")
(blank-carbon-copy . "Dold kopia")
(carbon-copy-prefix . "[Ee]")
(blank-carbon-copy-prefix . "[Dd]")
......@@ -1254,6 +1254,7 @@ Text:
(url-popup-title . "URL %#1s")
(aux-popup-title . "Tillggsinformation")
(timestamp-popup-title . "Tidsstmpel %#1s")
(recpt-type-popup-title . "Mottagartyp: %#1s")
(generic-popup-title . "%#1s")
(who-i-am-not-present . "%#1P r inte nrvarande i ngot mte\n")
......@@ -1565,6 +1566,9 @@ Du m
(lyskom-button-info-aux-action . "Information")
(lyskom-button-delete-aux-action . "Radera")
(lyskom-button-copy-timestamp-action . "Kopiera")
(lyskom-button-recpt-type-recipient . "Mottagare")
(lyskom-button-recpt-type-copy . "Extra kopia")
(lyskom-button-recpt-type-bcc . "Dold kopia")
(lyskom-edit-toggle-secret-aux-action . "Vxla \"hemlig\"")
(lyskom-edit-toggle-anonymous-aux-action . "Vxla \"anonym\"")
(lyskom-edit-toggle-inherit-aux-action . "Vxla \"rvd\"")
......
......@@ -1245,6 +1245,21 @@ each time ."
(lambda (buffer argument text) nil)
((lyskom-button-copy-timestamp-action . lyskom-button-copy-timestamp))
nil)
(recpt-type
recpt-type-popup-title
(lambda (buffer argument text) nil)
((lyskom-button-recpt-type-recipient
. (lambda (buffer argument text)
(lyskom-edit-do-add-recipient/copy
'recpt (car argument) (cadr argument))))
(lyskom-button-recpt-type-copy
. (lambda (buffer argument text)
(lyskom-edit-do-add-recipient/copy
'cc-recpt (car argument) (cadr argument))))
(lyskom-button-recpt-type-bcc
. (lambda (buffer argument text)
(lyskom-edit-do-add-recipient/copy
'bcc-recpt (car argument) (cadr argument))))))
)
"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