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
f455d201
Commit
f455d201
authored
Oct 18, 1999
by
David Byers
Browse files
Bug fix in lyskom-client-datae
Print name of sender of imported mail in the edit buffer
parent
4d4c0a7f
Changes
4
Hide whitespace changes
Inline
Side-by-side
src/ChangeLog
View file @
f455d201
1999-10-18 David Byers <davby@ida.liu.se>
* utilities.el (lyskom-client-date): Off-by-one error in
day-of-month fixed.
* edit-text.el (lyskom-edit-get-commented-author): Print the
name of the real author of an imported e-mail, not the importer's
name.
1999-10-17 David Byers <davby@ida.liu.se>
* utilities.el (lyskom-client-date-string): Don't add 1900 to
result of decode-time.
Sun Oct 17 00:52:05 1999 David Byers <davby@sen2.ida.liu.se>
* Release av 0.46-BETA-A
...
...
src/Makefile
View file @
f455d201
...
...
@@ -36,7 +36,7 @@
# makefile too!
#
CLIENTVERSION
=
0.46-BETA-
A
CLIENTVERSION
=
0.46-BETA-
B
DOCFILES
=
NEWS-0.46
FTPDIR
=
/home/davby/www-pub
...
...
src/edit-text.el
View file @
f455d201
...
...
@@ -254,9 +254,16 @@ NUMBER is the number of the person. Used if the conf-stat is nil."
(
defun
lyskom-edit-get-commented-author
(
text-stat
string
stream
number
)
(
if
text-stat
(
lyskom-edit-insert-commented-author
(
blocking-do
'get-conf-stat
(
text-stat->author
text-stat
))
string
stream
number
)
(
let
((
mx-from
(
car
(
lyskom-get-aux-item
(
text-stat->aux-items
text-stat
)
17
)))
(
mx-author
(
car
(
lyskom-get-aux-item
(
text-stat->aux-items
text-stat
)
16
))))
(
lyskom-edit-insert-commented-author
(
if
mx-from
(
lyskom-format-mx-author
mx-from
mx-author
)
(
blocking-do
'get-conf-stat
(
text-stat->author
text-stat
)))
string
stream
number
))
(
lyskom-edit-insert-commented-author
nil
string
stream
number
)))
...
...
src/utilities.el
View file @
f455d201
...
...
@@ -558,7 +558,7 @@ minutes, the seconds, the full name of the day of week, the abbreviated
name of the day of week."
(
let
((
now
(
decode-time
)))
(
lyskom-format
(
or
fmt
'time-yyyy-mm-dd-hh-mm
)
(
+
(
elt
now
5
)
1900
)
(
elt
now
5
)
(
elt
now
4
)
(
elt
now
3
)
(
elt
now
2
)
...
...
@@ -580,7 +580,7 @@ name of the day of week."
(
lyskom-create-time
(
elt
now
0
)
;sec
(
elt
now
1
)
;min
(
elt
now
2
)
;hour
(
elt
now
3
)
;mday
(
1-
(
elt
now
3
)
)
;mday
(
elt
now
4
)
;mon
(
-
(
elt
now
5
)
1900
)
;year
(
elt
now
6
)
;wday
...
...
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