Commit 79ebb810 authored by David Byers's avatar David Byers
Browse files

Fixed bug 823: kom-write-text should ask for recipient

Detailed changes:
> 	Fix bug 823:
> 	* commands1.el (kom-write-text): Ask for recipient by default. Old
> 	behavior is on C-u kom-write-text.
> 	(kom-send-letter): Only complete letterboxes when reading
> 	recipient.
>
> 	Fix bug 834:
parent 095ae83e
2003-01-03 David Byers <david.byers@swipnet.se>
Fix bug 823:
* commands1.el (kom-write-text): Ask for recipient by default. Old
behavior is on C-u kom-write-text.
(kom-send-letter): Only complete letterboxes when reading
recipient.
Fix bug 834:
* swedish-strings.el (lyskom-sv-mode-map): Added prefix "a" for
add commands. Added bindings for add and subtract commands.
(lyskom-sv-mode-map): Commented out obsolesence bindings for a and
......
......@@ -406,7 +406,7 @@ as TYPE. If no such misc-info, return NIL"
(let* ((tono (or pers-no
(lyskom-read-conf-no
(lyskom-get-string 'who-letter-to)
'(all) nil nil t)))
'(pers) nil nil t)))
(conf-stat (blocking-do 'get-conf-stat tono)))
(cache-del-conf-stat tono)
(if (if (zerop (conf-stat->msg-of-day conf-stat))
......@@ -1620,15 +1620,21 @@ Args: CONF-STAT MEMBERSHIP"
(def-kom-command kom-write-text (&optional arg)
"write a text."
"Start writing a LysKOM text that isn't a comment.."
(interactive "P")
(let ((recpt nil))
(cond ((consp arg) (setq recpt
(lyskom-read-conf-no
(lyskom-get-string 'who-send-text-to)
'(all) nil nil t)))
((numberp arg) (setq recpt arg))
(t (setq recpt lyskom-current-conf)))
(let ((recpt (cond ((consp arg) lyskom-current-conf)
((numberp arg) arg)
(t (lyskom-read-conf-no
(lyskom-get-string 'who-send-text-to)
'(all)
nil
(if (zerop lyskom-current-conf)
nil
(cons (conf-stat->name
(blocking-do 'get-conf-stat
lyskom-current-conf))
0))
t)))))
(if (or (null recpt)
(zerop recpt))
(lyskom-insert-string 'no-in-conf)
......
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