Skip to content
GitLab
Menu
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
6084a98d
Commit
6084a98d
authored
Oct 13, 1999
by
David Byers
Browse files
Print content type of imported attachments
parent
2c082b72
Changes
4
Hide whitespace changes
Inline
Side-by-side
src/ChangeLog
View file @
6084a98d
1999-10-12 David Byers <davby@ida.liu.se>
* edit-text.el (Info-current-file): Get rid of Info-related
compiler warnings.
* view-text.el (lyskom-insert-deferred-header-comm): Print the
content type of attachments.
(lyskom-insert-header-comm): Same here.
1999-10-13 David Byers <davby@ida.liu.se>
* command.el (lyskom-end-of-command): Don't do user-active when
...
...
src/TODO
View file @
6084a98d
...
...
@@ -3,6 +3,9 @@
Att göra i elisp-klienten
=========================
4382908, immediately.
Någon form at reply till importerade brev som använder mx-reply-to
eller mx-to, mx-cc om de finns.
...
...
src/swedish-strings.el
View file @
6084a98d
...
...
@@ -821,8 +821,8 @@ Annat se \\[describe-mode] ---")
(comment-in-text-by . "
Kommentar
i
text
%#1n
av
%#2P
")
(footnote-in-text-by . "
Fotnot
i
text
%#1n
av
%#2P
")
(attachment-to-text . "
Bilaga
till
text
%#1n
")
(attachment-in-text . "
Bilaga
i
text
%#1n
")
(attachment-to-text . "
Bilaga
%#3s
till
text
%#1n
")
(attachment-in-text . "
Bilaga
%#3s
i
text
%#1n
")
(envelope-sender . "
Snt
av:
%#1s\n
")
(attachment-filename . "
Bilagans
filnamn:
\"%#1s\"\n
")
...
...
src/view-text.el
View file @
6084a98d
...
...
@@ -914,34 +914,49 @@ Args: TEXT-STAT of the text being read."
(
lambda
(
el
)
(
string-to-number
(
aux-item->data
el
)))
(
lyskom-get-aux-item
(
text-stat->aux-items
read-text-stat
)
10100
)))
(
content-type
""
)
fmt
data
)
(
setq
author
(
or
(
lyskom-format-mx-author
mx-from
mx-author
)
author
))
;; Extract the content type
(
if
(
and
mx-from
(
setq
content-type
(
car
(
lyskom-get-aux-item
(
text-stat->aux-items
text-stat
)
1
))))
(
progn
(
string-match
"^\\(\\S-+\\)"
(
aux-item->data
content-type
))
(
setq
content-type
(
format
"(%s) "
(
aux-item->data
content-type
))))
(
setq
content-type
""
))
(
cond
((
eq
type
'COMM-TO
)
(
setq
fmt
(
cond
((
memq
(
misc-info->comm-to
misc
)
mx-belongs-to
)
'attachment-to-text
)
(
setq
fmt
(
cond
((
memq
(
misc-info->comm-to
misc
)
mx-belongs-to
)
'attachment-to-text
)
(
author
'comment-to-text-by
)
(
t
'comment-to-text
))
data
(
misc-info->comm-to
misc
)))
((
eq
type
'FOOTN-TO
)
(
setq
fmt
(
cond
((
memq
(
misc-info->footn-to
misc
)
mx-belongs-to
)
'attachment-to-text
)
(
setq
fmt
(
cond
((
memq
(
misc-info->footn-to
misc
)
mx-belongs-to
)
'attachment-to-text
)
(
author
'footnote-to-text-by
)
(
t
'footnote-to-text
))
data
(
misc-info->footn-to
misc
)))
((
eq
type
'COMM-IN
)
(
setq
fmt
(
cond
((
memq
(
misc-info->comm-in
misc
)
mx-attachments-in
)
'attachment-in-text
)
(
setq
fmt
(
cond
((
memq
(
misc-info->comm-in
misc
)
mx-attachments-in
)
'attachment-in-text
)
(
author
'comment-in-text-by
)
(
t
'comment-in-text
))
data
(
misc-info->comm-in
misc
)))
((
eq
type
'FOOTN-IN
)
(
setq
fmt
(
cond
((
memq
(
misc-info->footn-in
misc
)
mx-attachments-in
)
'attachment-in-text
)
(
setq
fmt
(
cond
((
memq
(
misc-info->footn-in
misc
)
mx-attachments-in
)
'attachment-in-text
)
(
author
'footnote-in-text-by
)
(
t
'footnote-in-text
))
data
(
misc-info->footn-in
misc
))))
data
(
misc-info->footn-in
misc
))))
(
set-defer-info->format
defer-info
fmt
)
; Note: author is ignored if fmt is not *-by
(
lyskom-replace-deferred
defer-info
data
author
)))
(
lyskom-replace-deferred
defer-info
data
author
content-type
)))
...
...
@@ -961,32 +976,58 @@ Args: TEXT-STAT of the text being read."
(
lambda
(
el
)
(
string-to-number
(
aux-item->data
el
)))
(
lyskom-get-aux-item
(
text-stat->aux-items
read-text-stat
)
10100
)))
(
content-type
""
)
(
is-attachment
nil
)
(
type
(
misc-info->type
misc
)))
(
setq
author
(
or
(
lyskom-format-mx-author
mx-from
mx-author
)
author
))
;; Extract the content type
(
if
(
and
mx-from
(
setq
content-type
(
car
(
lyskom-get-aux-item
(
text-stat->aux-items
text-stat
)
1
))))
(
progn
(
string-match
"^\\(\\S-+\\)"
(
aux-item->data
content-type
))
(
setq
content-type
(
format
"(%s) "
(
aux-item->data
content-type
))))
(
setq
content-type
""
))
(
cond
((
eq
type
'COMM-TO
)
(
lyskom-format-insert
(
if
(
memq
(
misc-info->comm-to
misc
)
mx-belongs-to
)
(
lyskom-format-insert
(
if
(
and
(
memq
(
misc-info->comm-to
misc
)
mx-belongs-to
)
(
setq
is-attachment
t
))
'attachment-to-text
'comment-to-text
)
(
misc-info->comm-to
misc
)))
(
misc-info->comm-to
misc
)
nil
content-type
))
((
eq
type
'FOOTN-TO
)
(
lyskom-format-insert
(
if
(
memq
(
misc-info->footn-to
misc
)
mx-belongs-to
)
(
lyskom-format-insert
(
if
(
and
(
memq
(
misc-info->footn-to
misc
)
mx-belongs-to
)
(
setq
is-attachment
t
))
'attachment-to-text
'footnote-to-text
)
(
misc-info->footn-to
misc
)))
(
misc-info->footn-to
misc
)
nil
content-type
))
((
eq
type
'COMM-IN
)
(
lyskom-format-insert
(
if
(
memq
(
misc-info->comm-in
misc
)
mx-attachments-in
)
(
lyskom-format-insert
(
if
(
and
(
memq
(
misc-info->comm-in
misc
)
mx-attachments-in
)
(
setq
is-attachment
t
))
'attachment-in-text
'comment-in-text
)
(
misc-info->comm-in
misc
)))
(
misc-info->comm-in
misc
)
nil
content-type
))
((
eq
type
'FOOTN-IN
)
(
lyskom-format-insert
(
if
(
memq
(
misc-info->footn-in
misc
)
mx-attachments-in
)
(
lyskom-format-insert
(
if
(
and
(
memq
(
misc-info->footn-in
misc
)
mx-attachments-in
)
(
setq
is-attachment
t
))
'attachment-in-text
'footnote-in-text
)
(
misc-info->footn-in
misc
))))
(
if
author
(
misc-info->footn-in
misc
)
nil
content-type
)))
(
if
(
and
author
(
not
is-attachment
))
(
lyskom-format-insert
'written-by
author
)
(
lyskom-insert
"\n"
))))
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a 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