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
6e531d6f
Commit
6e531d6f
authored
Nov 23, 2001
by
Ulrik Haugen
Browse files
added a button in lyskom-edit-mode for adding recipients.
parent
3c439cab
Changes
5
Hide whitespace changes
Inline
Side-by-side
src/ChangeLog
View file @
6e531d6f
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
...
...
src/edit-text.el
View file @
6e531d6f
...
...
@@ -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
)))
...
...
src/english-strings.el
View file @
6e531d6f
...
...
@@ -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
")
...
...
src/swedish-strings.el
View file @
6e531d6f
...
...
@@ -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
")
...
...
src/vars.el.in
View file @
6e531d6f
...
...
@@ -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).
...
...
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