Commit dd2be52e authored by David Byers's avatar David Byers
Browse files

Finish fixing bug 459 (initial values for commands).

Detailed changes:
> 	* Makefile (TARGET): Default to debug compile.
>
> 	Fix bug 459:
> 	* commands2.el (kom-send-message): Use standard strategy for
> 	initial value when reading conf.
> 	(lyskom-default-conference-for-send-message): New function.
>
> 	* async.el (lyskom-show-personal-message): Save conf-no, not name
> 	in lyskom-last-personal-message-sender.
> 	(lyskom-show-personal-message): Same here.
>
> 	* vars.el.in (lyskom-default-conference-strategy): Added
> 	strategy for set-keep-commented and kom-send-message.
>
> 	* completing-read.el (lyskom-get-initial-conf-strategy): Display a
> 	warning if there is no prompt-specific strategy (there should be).
> 	This only happens if compiled with debugging.
>
> 	* macros.el (lyskom-debug-forms): New macro.
>
> 	* utilities.el (lyskom-completing-read): Fix handling of default
> 	argument (twas broken before).
>
> 	* commands1.el (kom-move-text-tree): Handle initial values for
> 	reading conference names through standard strategy configuration.
>
> 	* vars.el.in (lyskom-default-conference-strategy): Added
> 	strategies for kom-move-text and kom-sub-recipient.
>
> 	* commands1.el (lyskom-default-recpt-for-sub): Removed this
> 	function. It is implemented through the standard strategy
> 	configuration instead.
> 	(kom-move-text): Handle initial values for reading conference
> 	names through standard strategy configuration.
>
> 	* vars.el.in (lyskom-last-added-rcpt): Removed this variable.
> 	(lyskom-last-added-ccrcpt): Same.
> 	(lyskom-last-added-bccrcpt): Same.
> 	(lyskom-last-sub-rcpt): Same.
>
> 	* commands1.el (kom-sub-recipient): Don't save answer reading
> 	conference. Rely on standard strategy for default initial value.
> 	Sort the recipient list so RECPT is first.
>
> 	* vars.el.in (lyskom-default-conference-strategy): Handle initials
> 	formerly set in lyskom-add-helper through save strategy.
>
>  	* commands1.el (lyskom-add-helper): Don't explicitly save
>	last-added stuff. Removed last-added variable parameter.
> 	(kom-add-copy): Updated parameter list to lyskom-add-helper.
> 	(kom-add-bcc): Same here.
> 	(kom-add-recipient): Same here.
parent 0ebcc450
2003-08-24 David Byers <byers@lysator.liu.se>
* Makefile (TARGET): Default to debug compile.
Fix bug 459:
* commands2.el (kom-send-message): Use standard strategy for
initial value when reading conf.
(lyskom-default-conference-for-send-message): New function.
* async.el (lyskom-show-personal-message): Save conf-no, not name
in lyskom-last-personal-message-sender.
(lyskom-show-personal-message): Same here.
* vars.el.in (lyskom-default-conference-strategy): Added
strategy for set-keep-commented and kom-send-message.
* completing-read.el (lyskom-get-initial-conf-strategy): Display a
warning if there is no prompt-specific strategy (there should be).
This only happens if compiled with debugging.
* macros.el (lyskom-debug-forms): New macro.
* utilities.el (lyskom-completing-read): Fix handling of default
argument (twas broken before).
* commands1.el (kom-move-text-tree): Handle initial values for
reading conference names through standard strategy configuration.
* vars.el.in (lyskom-default-conference-strategy): Added
strategies for kom-move-text and kom-sub-recipient.
* commands1.el (lyskom-default-recpt-for-sub): Removed this
function. It is implemented through the standard strategy
configuration instead.
(kom-move-text): Handle initial values for reading conference
names through standard strategy configuration.
* vars.el.in (lyskom-last-added-rcpt): Removed this variable.
(lyskom-last-added-ccrcpt): Same.
(lyskom-last-added-bccrcpt): Same.
(lyskom-last-sub-rcpt): Same.
* commands1.el (kom-sub-recipient): Don't save answer reading
conference. Rely on standard strategy for default initial value.
Sort the recipient list so RECPT is first.
* vars.el.in (lyskom-default-conference-strategy): Handle initials
formerly set in lyskom-add-helper through save strategy.
* commands1.el (kom-create-conf): Ask about keep-commented when
creating conference.
(lyskom-add-helper): Don't explicitly save last-added stuff.
Removed last-added variable parameter.
(kom-add-copy): Updated parameter list to lyskom-add-helper.
(kom-add-bcc): Same here.
(kom-add-recipient): Same here.
* NEWS-0.48: Updated to here.
......
......@@ -181,7 +181,7 @@ verbose-el: $(HEADER) $(LANGUAGE-EL) $(SOURCES)
$(EMACS-BATCH) -l lpath.el -l _header.el -f batch-byte-compile $<
$(TARGET): $(TARGET-EL)
$(EMACS-BATCH) -l lpath.el -f batch-byte-compile $<
LYSKOM_DEBUG_COMPILE=yes $(EMACS-BATCH) -l lpath.el -f batch-byte-compile $<
HEADER-ELC = $(HEADER:%.el=%.elc)
LANGUAGE-ELC = $(LANGUAGE-EL:.el%.elc)
......
......@@ -468,7 +468,7 @@ according to the value of FLAG."
(not (zerop (minibuffer-depth)))))
(defun lyskom-show-personal-message (sender recipient message
(defun lyskom-show-personal-message (sender recipient message
&optional when nobeep)
"Insert a personal message into the lyskom buffer.
Args: SENDER: conf-stat for the person sending the message.
......@@ -479,13 +479,12 @@ Args: SENDER: conf-stat for the person sending the message.
NOBEEP: True means don't beep. No matter what."
(lyskom-insert-personal-message sender recipient message when nobeep)
(setq lyskom-last-personal-message-sender
(if (stringp sender) sender (conf-stat->name sender)))
(if (stringp sender) sender (conf-stat->conf-no sender)))
(setq lyskom-last-group-message-recipient
(if (and recipient
(not (eq 0 recipient))
(not (eq (conf-stat->conf-no recipient)
lyskom-pers-no)))
(conf-stat->name recipient)
(not (eq (conf-stat->conf-no recipient) lyskom-pers-no)))
(conf-stat->conf-no recipient)
nil))
(run-hooks 'lyskom-personal-message-hook)
(run-hooks 'kom-personal-message-hook))
......
......@@ -3539,7 +3539,6 @@ This command accepts text number prefix arguments (see
`lyskom-read-text-no-prefix-arg')."
(interactive (list (lyskom-read-text-no-prefix-arg 'text-to-add-recipient)))
(lyskom-add-helper text-no
'lyskom-last-added-rcpt
'who-to-add-q
'adding-name-as-recipient
'RECPT))
......@@ -3555,7 +3554,6 @@ This command accepts text number prefix arguments (see
`lyskom-read-text-no-prefix-arg')."
(interactive (list (lyskom-read-text-no-prefix-arg 'text-to-add-copy)))
(lyskom-add-helper text-no
'lyskom-last-added-ccrcpt
'who-to-add-copy-q
'adding-name-as-copy
'CC-RECPT))
......@@ -3571,24 +3569,17 @@ This command accepts text number prefix arguments (see
`lyskom-read-text-no-prefix-arg')."
(interactive (list (lyskom-read-text-no-prefix-arg 'text-to-add-bcc)))
(lyskom-add-helper text-no
'lyskom-last-added-bccrcpt
'who-to-add-bcc-q
'adding-name-as-copy
'BCC-RECPT))
(defun lyskom-add-helper (text-no last-variable who-prompt
doing-prompt type)
(defun lyskom-add-helper (text-no who-prompt doing-prompt type)
(let* ((text-stat (blocking-do 'get-text-stat text-no))
(attachments (lyskom-attachments-for-sub text-no))
(footnotes (lyskom-footnotes-for-sub text-no))
(move-footnotes nil)
(move-attachments nil)
(conf (blocking-do 'get-conf-stat
(lyskom-default-value last-variable)))
(target (lyskom-read-conf-stat who-prompt '(all)
nil
(and conf (conf-stat->name conf))
t)))
(target (lyskom-read-conf-stat who-prompt '(all) nil nil t)))
(when (and target text-no)
......@@ -3598,8 +3589,6 @@ This command accepts text number prefix arguments (see
(lyskom-format 'really-add-as-recpt-q target))))
(setq type 'CC-RECPT doing-prompt 'adding-name-as-copy))
(lyskom-set-default last-variable (conf-stat->conf-no target))
(setq move-footnotes (and footnotes (lyskom-j-or-n-p 'add-footnotes-too-q)))
(setq move-attachments (and attachments (lyskom-j-or-n-p 'add-attachments-too-q)))
(lyskom-traverse text (append (list (cons text-no text-stat))
......@@ -3608,21 +3597,6 @@ This command accepts text number prefix arguments (see
(lyskom-format-insert doing-prompt target (car text))
(lyskom-move-recipient (car text) nil target type)))))
(defun lyskom-default-recpt-for-sub (recipients)
"Select the default recipient for removal from RECIPIENTS.
The value of RECIPIENTS should be the result of a call to
\(lyskom-text-recipients text-no t\)."
(let ((last-sub (lyskom-default-value 'lyskom-last-sub-rcpt)))
(cond ((and (assq last-sub recipients)
(blocking-do 'get-conf-stat last-sub)))
((and (assq lyskom-current-conf recipients)
(blocking-do 'get-conf-stat lyskom-current-conf)))
((and (rassq 'RECPT recipients)
(blocking-do 'get-conf-stat (car (rassq 'RECPT recipients)))))
((and (car recipients)
(blocking-do 'get-conf-stat (car (car recipients))))))))
(defun lyskom-footnotes-for-sub (text-no)
"Return the list of footnotes to remove recipient from."
(let ((result nil)
......@@ -3669,19 +3643,21 @@ This command accepts text number prefix arguments (see
(move-footnotes nil)
(move-attachments nil))
(if text-stat
(let ((recipients (lyskom-text-recipients text-stat t)))
(let ((recipients
(sort (lyskom-text-recipients text-stat t)
(lambda (a b)
(> (length (memq (cdr a) lyskom-recpt-types-list))
(length (memq (cdr b) lyskom-recpt-types-list)))))))
(if recipients
(let* ((conf (lyskom-default-recpt-for-sub recipients))
(source (lyskom-read-conf-stat
(let* ((source (lyskom-read-conf-stat
'who-to-sub-q
(list (cons 'restrict (mapcar 'car recipients)))
nil
(and conf (conf-stat->name conf))
nil
t)))
(when source
(setq move-footnotes (and footnotes (lyskom-j-or-n-p 'sub-footnotes-too-q)))
(setq move-attachments (and attachments (lyskom-j-or-n-p 'sub-attachments-too-q)))
(lyskom-set-default 'lyskom-last-sub-rcpt (conf-stat->conf-no source))
(lyskom-traverse text (append (list (cons text-no text-stat))
(and move-footnotes footnotes)
......@@ -3714,32 +3690,22 @@ recipient to remove and target the recipient to add to text-stat."
(move-attachments nil))
(if (null text-stat)
(lyskom-format-insert 'no-such-text-no text-no)
(let* ((recipients (lyskom-text-recipients text-stat t))
(default-from (lyskom-default-recpt-for-sub recipients))
(default-to (blocking-do 'get-conf-stat
(or (lyskom-default-value 'lyskom-last-added-rcpt)
lyskom-current-conf))))
(if (null default-from)
(let* ((recipients (sort (lyskom-text-recipients text-stat t)
(lambda (a b)
(> (length (memq (cdr a) lyskom-recpt-types-list))
(length (memq (cdr b) lyskom-recpt-types-list)))))))
(if (null recipients)
(lyskom-format-insert 'text-has-no-recipients-r text-no)
(let ((source (lyskom-read-conf-stat
'who-to-move-from-q
(list (cons 'restrict
(mapcar 'car
recipients)))
nil
(and default-from (conf-stat->name default-from))
t))
(target (lyskom-read-conf-stat
'who-to-move-to-q '(all)
nil
(and default-to (conf-stat->name default-to))
t)))
(list (cons 'restrict (mapcar 'car recipients)))
nil nil t))
(target (lyskom-read-conf-stat 'who-to-move-to-q '(all)
nil nil t)))
(when (and source target)
(setq move-footnotes (and footnotes (lyskom-j-or-n-p 'move-footnotes-too-q)))
(setq move-attachments (and attachments (lyskom-j-or-n-p 'move-attachments-too-q)))
(lyskom-set-default 'lyskom-last-added-rcpt (conf-stat->conf-no target))
(lyskom-set-default 'lyskom-last-sub-rcpt (conf-stat->conf-no source))
(lyskom-traverse text (append (list (cons text-no text-stat))
(and move-footnotes footnotes)
(and move-attachments attachments))
......@@ -3763,16 +3729,14 @@ This command accepts text number prefix arguments (see
;; Set up default recipients for from and to.
(let* ((recipients (lyskom-text-recipients root-text-stat t))
(default-from (lyskom-default-recpt-for-sub recipients))
(default-to (blocking-do
'get-conf-stat
(or (lyskom-default-value 'lyskom-last-added-rcpt)
lyskom-current-conf))))
(let* ((recipients (sort (lyskom-text-recipients root-text-stat t)
(lambda (a b)
(> (length (memq (cdr a) lyskom-recpt-types-list))
(length (memq (cdr b) lyskom-recpt-types-list)))))))
;; Check that the text has recipients at all.
(if (null default-from)
(if (null recipients)
(lyskom-format-insert 'text-has-no-recipients-r text-no)
;; Read the conference we are moving the tree away from.
......@@ -3780,9 +3744,7 @@ This command accepts text number prefix arguments (see
(let ((source (lyskom-read-conf-stat
'who-to-move-from-q
(list (cons 'restrict (mapcar 'car recipients)))
nil
(and default-from (conf-stat->name default-from))
t))
nil nil t))
(to-do (list (text-stat->text-no root-text-stat)))
(done nil))
......@@ -3860,19 +3822,12 @@ This command accepts text number prefix arguments (see
'who-to-move-to-q)
'(all)
(> (length text-to-move-recipients) 1)
(and default-to
(conf-stat->name default-to))
t)))
nil t)))
(if target
(progn
(setq default-to target)
(lyskom-format-insert 'moving-name source target text-stat)
(lyskom-set-default 'lyskom-last-added-rcpt (conf-stat->conf-no target))
(lyskom-set-default 'lyskom-last-sub-rcpt (conf-stat->conf-no source)))
(lyskom-format-insert 'moving-name source target text-stat)
(lyskom-format-insert 'remove-name-as-recipient
source
(text-stat->text-no text-stat))
(lyskom-set-default 'lyskom-last-sub-rcpt (conf-stat->conf-no source)))
(text-stat->text-no text-stat)))
(lyskom-move-recipient text-to-move source target 'RECPT)
(setq to-do (nconc (lyskom-text-comments text-stat) to-do))
)
......
......@@ -592,6 +592,27 @@ This command accepts text number prefix arguments \(see
;;; Modified to use default recipient by David Byers
(defun lyskom-default-conference-for-send-message (&rest args)
(list
(cond
((eq kom-default-message-recipient 'everybody) nil)
((and (eq kom-default-message-recipient 'group)
lyskom-last-group-message-recipient)
lyskom-last-group-message-recipient)
((or (and (eq kom-default-message-recipient 'group)
(null lyskom-last-group-message-recipient))
(and (eq kom-default-message-recipient 'sender)
lyskom-last-personal-message-sender))
lyskom-last-personal-message-sender)
((and (eq kom-default-message-recipient 'last-recipient)
lyskom-last-message-recipient
(not (eq 0 lyskom-last-message-recipient))
lyskom-last-message-recipient))
(t
(if lyskom-last-personal-message-sender
lyskom-last-personal-message-sender
nil)))))
(def-kom-command kom-send-message (&optional who message)
"Send a message to another user or all members of a conference.
Messages sent with this command are not texts and are not stored
......@@ -608,34 +629,8 @@ See `kom-default-message-recipient'."
(target (or who
(lyskom-read-conf-no
`(who-to-send-message-to ,(lyskom-get-string 'nobody))
(if kom-permissive-completion
'(all)
'(login conf))
t
(cond
((eq kom-default-message-recipient 'everybody) nil)
((and (eq kom-default-message-recipient 'group)
lyskom-last-group-message-recipient)
(cons lyskom-last-group-message-recipient 0))
((or (and (eq kom-default-message-recipient 'group)
(null lyskom-last-group-message-recipient))
(and (eq kom-default-message-recipient 'sender)
lyskom-last-personal-message-sender))
(cons lyskom-last-personal-message-sender 0))
((and (eq kom-default-message-recipient 'last-recipient)
lyskom-last-message-recipient
(not (eq 0 lyskom-last-message-recipient))
(setq tmp (blocking-do 'get-uconf-stat lyskom-last-message-recipient)))
(cons (conf-stat->name tmp) 0))
(t
(if lyskom-last-personal-message-sender
(cons lyskom-last-personal-message-sender 0)
nil)))
t))))
(if kom-permissive-completion '(all) '(login conf))
t nil t))))
(if (zerop target)
(lyskom-format-insert 'message-use-alarm-instead
(lyskom-command-name 'kom-send-alarm))
......
......@@ -188,31 +188,38 @@ See lyskom-read-conf for a description of the parameters."
;;; Code to guess defaults for initial input
;;;
(defun lyskom-default-conference-at-point ()
(defun lyskom-default-conference-at-point (&rest args)
(let* ((pos (or lyskom-command-point (point)))
(type (and pos (get-text-property pos 'lyskom-button-type))))
(and (memq type '(conf pers))
(list (get-text-property pos 'lyskom-button-arg)))))
(defun lyskom-default-conference-current ()
(defun lyskom-default-conference-current (&rest args)
(list lyskom-current-conf))
(defun lyskom-default-conference-self ()
(defun lyskom-default-conference-self (&rest args)
(list lyskom-pers-no))
(defun lyskom-default-conference-not-self (uc)
(not (eq (uconf-stat->conf-no uc) lyskom-pers-no)))
(defun lyskom-default-conference-not-current (uc)
(not (eq (uconf-stat->conf-no uc) lyskom-current-conf)))
(defun lyskom-default-conference-last-author ()
(defun lyskom-default-conference-last-author (&rest args)
(and (lyskom-get-last-read-text)
(list (text-stat->author
(blocking-do 'get-text-stat (lyskom-get-last-read-text))))))
(defun lyskom-default-conference-saved (sym)
(list (conf-z-info->conf-no (cdr (assq sym lyskom-read-conf-saved-inputs)))))
(defun lyskom-default-conference-restriction (predicate &rest args)
(and (assq 'restrict predicate)
(cdr (assq 'restrict predicate))))
(defun lyskom-default-conference-saved (sym &rest args)
(and (cdr (assq (car sym) lyskom-read-conf-saved-inputs))
(list (conf-z-info->conf-no (cdr (assq (car sym) lyskom-read-conf-saved-inputs))))))
(defun lyskom-default-conference-not-self (uc &rest args)
(not (eq (uconf-stat->conf-no uc) lyskom-pers-no)))
(defun lyskom-default-conference-not-current (uc &rest args)
(not (eq (uconf-stat->conf-no uc) lyskom-current-conf)))
(defun lyskom-get-initial-conf-strategy (prompt)
......@@ -223,6 +230,13 @@ See lyskom-read-conf for a description of the parameters."
(cdr (assq t (assq t lyskom-default-conference-strategy))))
(prompt-spec (cdr (assq prompt spec-1)))
(cmd-spec (cdr (assq t spec-1))))
(lyskom-debug-forms
(unless spec-1 (lyskom-format-insert-before-prompt
"%[%#2@%#1s%]\n"
(format "Warning: no strategy for %S/%S"
(or lyskom-current-command this-command)
prompt)
`(face ,kom-warning-face))))
(list (or (assq 'default prompt-spec)
(assq 'default cmd-spec)
(assq 'default default-spec))
......@@ -257,16 +271,15 @@ See lyskom-read-conf for a description of the parameters."
(apply 'append
(delq nil (mapcar (lambda (fn)
(if (listp fn)
(apply (car fn) (cdr fn))
(funcall fn)))
(funcall (car fn) (cdr fn) predicate)
(funcall fn predicate)))
default)))))))))
(defun lyskom-read-conf-save-input (prompt input)
"Save INPUT as input for the current completing read command."
(lyskom-traverse sym (cdr (assq 'save
(lyskom-get-initial-conf-strategy prompt)))
(lyskom-traverse sym (cdr (assq 'save (lyskom-get-initial-conf-strategy prompt)))
(if (assq sym lyskom-read-conf-saved-inputs)
(setcdr (assq sym lyskom-read-conf-saved-inputs) input)
(setq lyskom-read-conf-saved-inputs
......
......@@ -122,4 +122,4 @@ run with your version of read-kbd-macro.
(eval-and-compile
(defvar lyskom-debug-compile (getenv "LYSKOM_DEBUG_COMPILE")))
(defvar lyskom-debug-compile (eval-when-compile (getenv "LYSKOM_DEBUG_COMPILE"))))
......@@ -333,6 +333,12 @@ the current buffer, and its value is copied from the LysKOM buffer."
(lyskom-assert-error "Assertion failed"))))
(defsubst lyskom-assert (check &rest args) nil)))
(eval-and-compile
(if lyskom-debug-compile
(defmacro lyskom-debug-forms (&rest forms)
`(progn ,@forms))
(defmacro lyskom-debug-forms (&rest forms))))
;;; ============================================================
;;; Local variables
;;;
......
......@@ -2147,7 +2147,8 @@ suitable for use as initial input in a magic minibuffer."
(lyskom-ignore def)
(lyskom-with-lyskom-minibuffer
(lyskom-with-magic-minibuffer
(or (completing-read prompt table predicate require-match init hist) def))))
(let ((res (completing-read prompt table predicate require-match init hist)))
(if (or (null res) (equal res "")) def res)))))
(defun lyskom-read-from-minibuffer (prompt
&optional initial-contents
......
......@@ -305,17 +305,53 @@ the priority among links that match the same text is undefined."
(default . (lyskom-default-conference-empty))))
;; Things I suspect to magical stuff
;; -- lyskom-add-helper
(kom-add-recipient (who-to-add-q
(default . ((lyskom-default-conference-saved last-added-rcpt)))
(save last-added-rcpt)))
(kom-add-recipient (who-to-add-q))
(kom-add-copy (who-to-add-copy-q))
(kom-add-bcc (who-to-add-bcc-q))
(kom-sub-recipient (who-to-sub-q))
(kom-send-message (who-to-send-message-to))
(kom-move-text (who-to-move-from-q) (who-to-move-to-q))
(kom-move-text-tree (who-to-move-from-q) (who-to-move-to-q)
(who-to-move-to-or-sub-q))
(kom-add-copy (who-to-add-copy-q
(default . ((lyskom-default-conference-saved last-added-cc)))
(save last-added-cc)))
(kom-add-bcc (who-to-add-bcc-q
(default . ((lyskom-default-conference-saved last-added-bcc)))
(save last-added-bcc)))
(kom-sub-recipient (who-to-sub-q
(default . (lyskom-default-conference-at-point
(lyskom-default-conference-saved last-sub-recipient)
lyskom-default-conference-current
lyskom-default-conference-restriction))
(save last-sub-recipient)))
(kom-move-text (who-to-move-from-q
(default . (lyskom-default-conference-at-point
(lyskom-default-conference-saved last-sub-recipient)
lyskom-default-conference-current
lyskom-default-conference-restriction))
(save last-sub-recipient))
(who-to-move-to-q
(default . ((lyskom-default-conference-saved last-added-rcpt)
lyskom-default-conference-current))
(save last-added-rcpt)))
(kom-move-text-tree (who-to-move-from-q
(default . (lyskom-default-conference-at-point
(lyskom-default-conference-saved last-sub-recipient)
lyskom-default-conference-current
lyskom-default-conference-restriction))
(save last-sub-recipient))
(who-to-move-to-or-sub-q
(default . ((lyskom-default-conference-saved last-added-rcpt)
lyskom-default-conference-current))
(save last added-rcpt))
(who-to-move-to-q
(default . ((lyskom-default-conference-saved last-added-rcpt)
lyskom-default-conference-current))
(save last-added-rcpt)))
(kom-send-message (who-to-send-message-to
(default . (lyskom-default-conference-for-send-message))))
;; Defaults and commands that use the defaults
......@@ -336,6 +372,7 @@ the priority among links that match the same text is undefined."
(kom-edit-insert-link (which-conf-to-link) (which-pers-to-link))
(kom-status-conf (conf-for-status))
(kom-status-person (pers-for-status))
(kom-set-keep-commented (conf-to-set-keep-commented-q))
(kom-set-garb-nice (conf-to-set-garb-nice-q))
(kom-set-super-conf (conf-to-set-super-conf-q) (new-super-conf-q))
(kom-set-personal-label (label-what-pers) (label-what-conf))
......@@ -3734,22 +3771,6 @@ set to that text."
"Current subject."
local)
(def-kom-var lyskom-last-added-rcpt 0
"The default conference when adding a recipient or moving a text."
local)
(def-kom-var lyskom-last-added-ccrcpt 0
"The default conference when adding a ccrecipient."
local)
(def-kom-var lyskom-last-added-bccrcpt 0
"The default conference when adding a bccrecipient."
local)
(def-kom-var lyskom-last-sub-rcpt 0
"The default conference when removing a recipient."
local)
(def-kom-var kom-saved-file-name (concat default-directory "kom-text")
"**The default filename when saving a LysKOM text.
......@@ -4323,7 +4344,12 @@ environment variable for this, but it shouldn't be used if there is."
;;; ============================================================
(defconst lyskom-comment-types-list '(COMM-IN FOOTN-IN))
(defconst lyskom-recpt-types-list '(RECPT CC-RECPT BCC-RECPT))
(defconst lyskom-recpt-types-list '(RECPT CC-RECPT BCC-RECPT)
"Types of recipients in LysKOM.
This variable must be sorted in order of importance, with full recipients
first, followed by successively more and more minor recipients. The reason
for this is in kom-sub-recipient, which sorts the recipient list using
the order of this list.")
(defconst lyskom-review-types-list '(REVIEW REVIEW-TREE
REVIEW-MARK REVIEW-FAQ
REVIEW-FAQ-TREE))
......
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