Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
lyskom-elisp-client
lyskom-elisp-client
Commits
fb8f0c54
Commit
fb8f0c54
authored
Nov 13, 2001
by
Ulrik Haugen
Browse files
You can change the recipient type for a recipient in the edit-buffer with the
mouse.
parent
0c5ab87c
Changes
5
Hide whitespace changes
Inline
Side-by-side
src/ChangeLog
View file @
fb8f0c54
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
...
...
src/edit-text.el
View file @
fb8f0c54
...
...
@@ -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
...
...
src/english-strings.el
View file @
fb8f0c54
...
...
@@ -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\""
)
...
...
src/swedish-strings.el
View file @
fb8f0c54
...
...
@@ -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\""
)
...
...
src/vars.el.in
View file @
fb8f0c54
...
...
@@ -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).
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment