Commit 94506c0c authored by David Byers's avatar David Byers
Browse files

Documentation fixes, minor bugfixes and naming fixes.

Detailed changes:
> 2005-01-08  David Byers  <byers@lysator.liu.se>
>
> 	* vars.el.in: Documentation updates in preparation for generating
> 	DocBook from the documentation strings.
>
> 	* startup.el (lyskom-refetch): We were prefetching unread confs in
> 	the reverse order, which was stupid as it slows down starting to
> 	read and may cause us to read texts in the wrong order.
>
> 2005-01-07  David Byers  <byers@lysator.liu.se>
>
> 	* mship-edit.el (lyskom-change-membership-position): Removed
> 	binding of old-position (it was never used).
>
> 	* english-strings.el (lyskom-en-edit-mode-map): Changed key
> 	bindings to explicitly use prefixes.
>
> 	* swedish-strings.el (lyskom-sv-edit-mode-map): Changed key
> 	bindings to explicitly use prefixes. Better variants of the
> 	swedish key binding. Use lyskom-try-define-key for swedish
> 	bindings.
>
> 	* edit-text.el: Updated documentation for most commands so that it
> 	can be extracted into the user manual in the future. All commands
> 	with the prefix `kom-edit-' are expected to be documented unless
> 	the documentation string ends in "Excluded from manual."
> 	(kom-ispell-message): Renamed to
> 	kom-edit-ispell-message.
> 	(kom-yank-info-nodename): Renamed to kom-edit-yank-info-nodename.
>
> 	* filter-edit.el (kom-filter-edit): Wrote docstring.
>
> 	* review.el: Various docstring updates (changed "text" to article
> 	in several places).
>
> 	* vars.el.in (kom-unread-mode-line-type): Updated docstring.
>
parent 148a57d6
2005-01-08 David Byers <byers@lysator.liu.se>
* vars.el.in: Documentation updates in preparation for generating
DocBook from the documentation strings.
* startup.el (lyskom-refetch): We were prefetching unread confs in
the reverse order, which was stupid as it slows down starting to
read and may cause us to read texts in the wrong order.
2005-01-07 David Byers <byers@lysator.liu.se>
* mship-edit.el (lyskom-change-membership-position): Removed
binding of old-position (it was never used).
* english-strings.el (lyskom-en-edit-mode-map): Changed key
bindings to explicitly use prefixes.
* swedish-strings.el (lyskom-sv-edit-mode-map): Changed key
bindings to explicitly use prefixes. Better variants of the
swedish key binding. Use lyskom-try-define-key for swedish
bindings.
* edit-text.el: Updated documentation for most commands so that it
can be extracted into the user manual in the future. All commands
with the prefix `kom-edit-' are expected to be documented unless
the documentation string ends in "Excluded from manual."
(kom-ispell-message): Renamed to
kom-edit-ispell-message.
(kom-yank-info-nodename): Renamed to kom-edit-yank-info-nodename.
* filter-edit.el (kom-filter-edit): Wrote docstring.
* review.el: Various docstring updates (changed "text" to article
in several places).
* vars.el.in (kom-unread-mode-line-type): Updated docstring.
2005-01-04 Ulrik Haugen <qha@lysator.liu.se> 2005-01-04 Ulrik Haugen <qha@lysator.liu.se>
* swedish-strings.el (lyskom-sv-mode-map): Added keybindings for * swedish-strings.el (lyskom-sv-mode-map): Added keybindings for
......
...@@ -436,12 +436,16 @@ so it's not as clean as it ought to be." ...@@ -436,12 +436,16 @@ so it's not as clean as it ought to be."
;;; ;;;
(defun kom-edit-send-anonymous () (defun kom-edit-send-anonymous ()
"Send the text anonymously to the server." "Send the text anonymously to the server. Be aware that although the text
will be truly anonymous, it is easy to slip up in such a way that the author
is evident anyway."
(interactive) (interactive)
(lyskom-edit-send 'initiate-create-anonymous-text t)) (lyskom-edit-send 'initiate-create-anonymous-text t))
(defun kom-edit-send () (defun kom-edit-send ()
"Send the text to the server." "Send the text to the server. This command will attempt to send the text
to the server. If something goes wrong, a prompt will be shown allowing you
to edit the message and try to send it again."
(interactive) (interactive)
(if (and (lyskom-default-value 'lyskom-is-anonymous) (if (and (lyskom-default-value 'lyskom-is-anonymous)
(lyskom-j-or-n-p 'do-send-anonymous)) (lyskom-j-or-n-p 'do-send-anonymous))
...@@ -658,7 +662,7 @@ anonymously and take actions to avoid revealing the sender." ...@@ -658,7 +662,7 @@ anonymously and take actions to avoid revealing the sender."
(defun lyskom-ispell-text () (defun lyskom-ispell-text ()
"Check spelling of the text body. "Check spelling of the text body.
Put this in kom-send-text-hook" Put this in kom-send-text-hook"
(kom-ispell-message) (kom-edit-ispell-message)
t) t)
...@@ -668,10 +672,13 @@ Put this in kom-send-text-hook" ...@@ -668,10 +672,13 @@ Put this in kom-send-text-hook"
(defvar ispell-message-start-skip nil) (defvar ispell-message-start-skip nil)
(defvar ispell-message-end-skip nil)) (defvar ispell-message-end-skip nil))
(defun kom-ispell-message () (defalias 'kom-ispell-message 'kom-edit-ispell-message)
"Check spelling of the text. (defun kom-edit-ispell-message ()
kom-ispell-dictionary is the dictionary to use to check spelling. "Check spelling of the text. Spelling is checked using ispell
Based on ispell-message." and the dictionary indicated by `kom-ispell-dictionary'. If you
want to check the spelling of every message before sending it,
read the documentation for `lyskom-ispell-text' and
`kom-send-text-hook'"
(interactive) (interactive)
(require 'ispell) (require 'ispell)
(let ((ispell-dictionary (or kom-ispell-dictionary ispell-dictionary)) (let ((ispell-dictionary (or kom-ispell-dictionary ispell-dictionary))
...@@ -1058,7 +1065,7 @@ Cannot be called from a callback." ...@@ -1058,7 +1065,7 @@ Cannot be called from a callback."
(defun kom-edit-quit () (defun kom-edit-quit ()
"Kill the text (if any) written so far and continue reading." "Cancel editing the text being written and return to reading LysKOM."
(interactive) (interactive)
(let ((edit-buffer (current-buffer))) (let ((edit-buffer (current-buffer)))
(goto-char (point-max)) (goto-char (point-max))
...@@ -1078,8 +1085,11 @@ Cannot be called from a callback." ...@@ -1078,8 +1085,11 @@ Cannot be called from a callback."
(defun kom-edit-insert-commented (arg) (defun kom-edit-insert-commented (arg)
"Insert the commented text. Unless an empty prefix argument is "Insert the commented text, prepending each line with the
given, prepend each line with your commenting prefix (or '>')." text in `kom-cite-string' (defaults to \"> \"). Note that citing
the commented text is not common practise in LysKOM (unlike
e-mail and news) since there is a strong link to the commented
text anyway. Use this command sparingly."
(interactive "P") (interactive "P")
(lyskom-edit-get-commented (lyskom-edit-get-commented
'lyskom-edit-insert-commented 'lyskom-edit-insert-commented
...@@ -1088,19 +1098,24 @@ given, prepend each line with your commenting prefix (or '>')." ...@@ -1088,19 +1098,24 @@ given, prepend each line with your commenting prefix (or '>')."
(defun kom-edit-insert-buglist () (defun kom-edit-insert-buglist ()
"Insert the commented buglist, Roxen Internet Software style." "Insert the commented buglist, Roxen Internet Software style. Excluded from manual."
(interactive) (interactive)
(lyskom-edit-get-commented 'lyskom-edit-insert-buglist)) (lyskom-edit-get-commented 'lyskom-edit-insert-buglist))
(defun kom-edit-insert-digit-text () (defun kom-edit-insert-digit-text ()
"Prompt for a text to insert. Excluded from manual."
(interactive) (interactive)
(setq unread-command-events (cons last-command-event unread-command-events)) (setq unread-command-events (cons last-command-event unread-command-events))
(call-interactively 'kom-edit-insert-text nil)) (call-interactively 'kom-edit-insert-text nil))
(defun kom-edit-insert-text (no) (defun kom-edit-insert-text (no)
"Insert the text number NO with '>' first on each line." "Prompt for a text to insert, prefixing each line with the contents
of `kom-cite-string' (defaults to \"> \"). Note that citing texts is not
commonplace in LysKOM (unlike e-mail and news) since it is easy to
refer to specific texts (see `kom-edit-insert-link' and
`kom-edit-add-cross-reference'). Use this command sparingly."
(interactive (list (interactive (list
(cond (cond
((null current-prefix-arg) ((null current-prefix-arg)
...@@ -1154,8 +1169,12 @@ WINDOW plus any optional arguments given in ARG-LIST." ...@@ -1154,8 +1169,12 @@ WINDOW plus any optional arguments given in ARG-LIST."
(defvar Info-current-file) (defvar Info-current-file)
;; NOTUSED: kom-yank-info-nodename ;; NOTUSED: kom-yank-info-nodename
(defun kom-yank-info-nodename () (defalias 'kom-yank-info-nodename 'kom-edit-yank-info-nodename)
"Put the current Info-node on the kill-ring." (defun kom-edit-yank-info-nodename ()
"When browsing info files, this command will place a reference to the
current info node in the kill ring, from where it can be pasted into
another buffer. This command is useful when you want to refer to an
info node in a LysKOM text."
(interactive) (interactive)
(kill-new (format "*Note %s: (%s)%s," (kill-new (format "*Note %s: (%s)%s,"
Info-current-node Info-current-node
...@@ -1164,7 +1183,8 @@ WINDOW plus any optional arguments given in ARG-LIST." ...@@ -1164,7 +1183,8 @@ WINDOW plus any optional arguments given in ARG-LIST."
;; NOTUSED: kom-insert-last-info-nodename ;; NOTUSED: kom-insert-last-info-nodename
(defun kom-insert-last-info-nodename () (defalias 'kom-insert-last-info-nodename 'kom-edit-insert-last-info-nodename)
(defun kom-edit-insert-last-info-nodename ()
"Insert a reference to the most recently visited info node." "Insert a reference to the most recently visited info node."
(interactive) (interactive)
(condition-case nil (condition-case nil
...@@ -1185,7 +1205,10 @@ WINDOW plus any optional arguments given in ARG-LIST." ...@@ -1185,7 +1205,10 @@ WINDOW plus any optional arguments given in ARG-LIST."
;;; Changed by: Linus Tolke ;;; Changed by: Linus Tolke
(defun kom-edit-add-comment () (defun kom-edit-add-comment ()
"Adds a text as commented to the text being edited." "Makes this text a comment to another text. Using this command it is
possible to make the text a comment to multiple texts. To remove a
comment link, simply remove the corresponding line from the headers
in the edit buffer."
(interactive) (interactive)
(let* ((edit-buffer (current-buffer)) (let* ((edit-buffer (current-buffer))
(insert-at (point-min-marker)) (insert-at (point-min-marker))
...@@ -1202,25 +1225,38 @@ WINDOW plus any optional arguments given in ARG-LIST." ...@@ -1202,25 +1225,38 @@ WINDOW plus any optional arguments given in ARG-LIST."
(defun kom-edit-add-recipient () (defun kom-edit-add-recipient ()
"Adds a conference as recipient to the text being edited." "Adds a regular recipient to the text or converts an existing
recipient to a regular recipient. Using this command it is possible to
add any number of regular recipients. To remove a recipient, simply
delete the corresponding header line in the edit buffer."
(interactive) (interactive)
(lyskom-edit-add-recipient/copy 'added-recipient nil 'RECPT)) (lyskom-edit-add-recipient/copy 'added-recipient nil 'RECPT))
(defun kom-edit-add-bcc () (defun kom-edit-add-bcc ()
"Adds a conference as bcc recipient to the text being edited." "Adds a blind carbon copy recipient to the text, or converts an
existing recipient to blind carbon copy. Using this command it is
possible to add any number of regular recipients. To remove a
recipient, simply delete the corresponding header line in the edit
buffer."
(interactive) (interactive)
(lyskom-edit-add-recipient/copy 'added-blank-carbon-copy nil 'BCC-RECPT)) (lyskom-edit-add-recipient/copy 'added-blank-carbon-copy nil 'BCC-RECPT))
(defun kom-edit-add-copy () (defun kom-edit-add-copy ()
"Adds a conference to which a copy of the edited text will be sent." "Adds a carbon copy recipient to the text, or converts an existing
recipient to blind carbon copy. Using this command it is possible to
add any number of regular recipients. To remove a recipient, simply
delete the corresponding header line in the edit buffer."
(interactive) (interactive)
(lyskom-edit-add-recipient/copy 'added-carbon-copy nil 'CC-RECPT)) (lyskom-edit-add-recipient/copy 'added-carbon-copy nil 'CC-RECPT))
(defun kom-edit-move-text () (defun kom-edit-move-text ()
"Adds a conference as a recipient, and changes all other recipients to "Adds a regular recipient to the text, or converts an existing
CC recipients." recipient to blind carbon copy, and converts all other recipients to
carbonn copy recipients. This command is intended for situations where
a commend is being sent to a different recipient than the commented
text was."
(interactive) (interactive)
(lyskom-edit-add-recipient/copy 'who-to-move-to-q (lyskom-edit-add-recipient/copy 'who-to-move-to-q
'lyskom-edit-move-recipients)) 'lyskom-edit-move-recipients))
...@@ -1342,12 +1378,21 @@ RECPT-TYPE is the type of recipient to add." ...@@ -1342,12 +1378,21 @@ RECPT-TYPE is the type of recipient to add."
(defun kom-edit-add-cross-reference () (defun kom-edit-add-cross-reference ()
"Add a cross reference to this text. This command prompts for the
type and target of the cross reference. Cross references are used
to systematically refer from a text to another text, conference or
person without altering the contents of the text."
(interactive) (interactive)
(let ((item (lyskom-read-cross-reference-and-get-aux-item))) (let ((item (lyskom-read-cross-reference-and-get-aux-item)))
(when item (when item
(lyskom-edit-insert-aux-item item)))) (lyskom-edit-insert-aux-item item))))
(defun kom-edit-add-read-confirm-request () (defun kom-edit-add-read-confirm-request ()
"Request that others confirm reading this text. Conforming clients
will ask each reader of this text to confirm reading the text. Note
that not all clients understand this request, and that confirmation is
neither automatic nor mandatory. Use very sparingly as this interrupts
the normal flow of reading for many users."
(interactive) (interactive)
(lyskom-edit-insert-aux-item (lyskom-edit-insert-aux-item
(lyskom-create-aux-item 0 6 0 0 (lyskom-create-aux-item 0 6 0 0
...@@ -1356,6 +1401,10 @@ RECPT-TYPE is the type of recipient to add." ...@@ -1356,6 +1401,10 @@ RECPT-TYPE is the type of recipient to add."
0 ""))) 0 "")))
(defun kom-edit-add-no-comments () (defun kom-edit-add-no-comments ()
"Request that nobody comments this text. Conforming clients will
either prevent users from commenting the text or ask for confirmation
before commenting the text. Note that not all clients understand this
request and that it is advisory only."
(interactive) (interactive)
(lyskom-edit-insert-aux-item (lyskom-edit-insert-aux-item
(lyskom-create-aux-item 0 4 0 0 (lyskom-create-aux-item 0 4 0 0
...@@ -1364,6 +1413,10 @@ RECPT-TYPE is the type of recipient to add." ...@@ -1364,6 +1413,10 @@ RECPT-TYPE is the type of recipient to add."
0 ""))) 0 "")))
(defun kom-edit-add-personal-comments () (defun kom-edit-add-personal-comments ()
"Request that all replies to this text are in the form of personal
replies. Conforming clients will treat a request to comment this text
as a request to answer privately. Note that not all clients understand
this request and that it is advisory only."
(interactive) (interactive)
(lyskom-edit-insert-aux-item (lyskom-edit-insert-aux-item
(lyskom-create-aux-item 0 5 0 0 (lyskom-create-aux-item 0 5 0 0
...@@ -1372,6 +1425,10 @@ RECPT-TYPE is the type of recipient to add." ...@@ -1372,6 +1425,10 @@ RECPT-TYPE is the type of recipient to add."
0 ""))) 0 "")))
(defun kom-edit-add-world-readable () (defun kom-edit-add-world-readable ()
"Make this text readable to all users, even if they are not logged
in. World readable texts can be read by anyone, regardless of what
recipients the text has. World readable texts can even be read without
logging in to LysKOM."
(interactive) (interactive)
(lyskom-edit-insert-aux-item (lyskom-edit-insert-aux-item
(lyskom-create-aux-item 0 34 0 0 (lyskom-create-aux-item 0 34 0 0
...@@ -1380,6 +1437,9 @@ RECPT-TYPE is the type of recipient to add." ...@@ -1380,6 +1437,9 @@ RECPT-TYPE is the type of recipient to add."
0 ""))) 0 "")))
(defun kom-edit-insert-link () (defun kom-edit-insert-link ()
"Insert an in-line link to another text, a conference or a person.
This command prompts for the target of the link and inserts text that
most clients will interpret as a link."
(interactive) (interactive)
(let ((item (lyskom-read-link))) (let ((item (lyskom-read-link)))
(when item (when item
...@@ -1951,6 +2011,7 @@ buglist style, automating the removal of closed subjects and change-marks." ...@@ -1951,6 +2011,7 @@ buglist style, automating the removal of closed subjects and change-marks."
;;; Tab between buttons in the header ;;; Tab between buttons in the header
(defun kom-edit-next-button-or-self-insert (num) (defun kom-edit-next-button-or-self-insert (num)
"Move to the next link or insert a TAB, depending on context. Excluded from manual."
(interactive "p") (interactive "p")
(let ((header-end (lyskom-edit-find-separator)) (let ((header-end (lyskom-edit-find-separator))
(start (point)) (start (point))
...@@ -1988,6 +2049,7 @@ buglist style, automating the removal of closed subjects and change-marks." ...@@ -1988,6 +2049,7 @@ buglist style, automating the removal of closed subjects and change-marks."
(setq num (1- num) start (point)))))) (setq num (1- num) start (point))))))
(defun kom-edit-prev-button (num) (defun kom-edit-prev-button (num)
"Move to the previous link. Excluded from manual."
(interactive "p") (interactive "p")
(let ((header-end (lyskom-edit-find-separator))) (let ((header-end (lyskom-edit-find-separator)))
(while (> num 0) (while (> num 0)
......
...@@ -60,7 +60,11 @@ ...@@ -60,7 +60,11 @@
;;; Set the keymap for lyskom-edit-mode ;;; Set the keymap for lyskom-edit-mode
(defvar lyskom-en-edit-prefix nil) (defvar lyskom-en-edit-prefix)
(defvar lyskom-en-edit-review-prefix)
(defvar lyskom-en-edit-insert-prefix)
(defvar lyskom-en-edit-aux-prefix)
(defvar lyskom-en-edit-add-prefix)
(if lyskom-en-edit-mode-map (if lyskom-en-edit-mode-map
nil nil
...@@ -70,6 +74,7 @@ ...@@ -70,6 +74,7 @@
(define-prefix-command 'lyskom-en-edit-insert-prefix) (define-prefix-command 'lyskom-en-edit-insert-prefix)
(define-prefix-command 'lyskom-en-edit-aux-prefix) (define-prefix-command 'lyskom-en-edit-aux-prefix)
(define-prefix-command 'lyskom-en-edit-add-prefix) (define-prefix-command 'lyskom-en-edit-add-prefix)
(define-key lyskom-en-edit-mode-map (kbd (lyskom-keys (lyskom-xemacs-or-gnu 'button2 'button2up))) 'kom-button-click-or-yank) (define-key lyskom-en-edit-mode-map (kbd (lyskom-keys (lyskom-xemacs-or-gnu 'button2 'button2up))) 'kom-button-click-or-yank)
(define-key lyskom-en-edit-mode-map (kbd (lyskom-keys (lyskom-xemacs-or-gnu 'button2up 'button2))) 'kom-mouse-null) (define-key lyskom-en-edit-mode-map (kbd (lyskom-keys (lyskom-xemacs-or-gnu 'button2up 'button2))) 'kom-mouse-null)
(define-key lyskom-en-edit-mode-map (kbd (lyskom-keys 'button3)) 'kom-popup-menu) (define-key lyskom-en-edit-mode-map (kbd (lyskom-keys 'button3)) 'kom-popup-menu)
...@@ -79,45 +84,50 @@ ...@@ -79,45 +84,50 @@
(define-key lyskom-en-edit-mode-map (kbd "TAB") 'kom-edit-next-button-or-self-insert) (define-key lyskom-en-edit-mode-map (kbd "TAB") 'kom-edit-next-button-or-self-insert)
(define-key lyskom-en-edit-mode-map (kbd "M-TAB") 'kom-edit-prev-button) (define-key lyskom-en-edit-mode-map (kbd "M-TAB") 'kom-edit-prev-button)
(define-key lyskom-en-edit-mode-map (kbd "<S-tab>") 'kom-edit-prev-button) (define-key lyskom-en-edit-mode-map (kbd "<S-tab>") 'kom-edit-prev-button)
(define-key lyskom-en-edit-mode-map (kbd "C-c") 'lyskom-en-edit-prefix)
(define-key lyskom-en-edit-mode-map (kbd "C-c") 'lyskom-en-edit-prefix)
(define-key lyskom-en-edit-prefix (kbd "C-x") 'lyskom-en-edit-aux-prefix) (define-key lyskom-en-edit-prefix (kbd "C-x") 'lyskom-en-edit-aux-prefix)
(define-key lyskom-en-edit-prefix (kbd "?") 'lyskom-help)
(define-key lyskom-en-edit-prefix (kbd "C-r") 'lyskom-en-edit-review-prefix) (define-key lyskom-en-edit-prefix (kbd "C-r") 'lyskom-en-edit-review-prefix)
(define-key lyskom-en-edit-prefix (kbd "C-i") 'lyskom-en-edit-insert-prefix) (define-key lyskom-en-edit-prefix (kbd "C-i") 'lyskom-en-edit-insert-prefix)
(define-key lyskom-en-edit-prefix (kbd "TAB") 'lyskom-en-edit-insert-prefix) (define-key lyskom-en-edit-prefix (kbd "TAB") 'lyskom-en-edit-insert-prefix)
(define-key lyskom-en-edit-prefix (kbd "C-a") 'lyskom-en-edit-add-prefix)
(define-key lyskom-en-edit-prefix (kbd "?") 'lyskom-help)
(define-key lyskom-en-edit-prefix (kbd "*") 'kom-button-press) (define-key lyskom-en-edit-prefix (kbd "*") 'kom-button-press)
(define-key lyskom-en-edit-prefix (kbd "=") 'kom-menu-button-press) (define-key lyskom-en-edit-prefix (kbd "=") 'kom-menu-button-press)
(define-key lyskom-en-edit-prefix (kbd "C-c") 'kom-edit-send)
(define-key lyskom-en-edit-prefix (kbd "C-s") 'kom-ispell-message)
(define-key lyskom-en-edit-prefix (kbd "C-k") 'kom-edit-quit)
(define-key lyskom-en-edit-prefix (kbd "r ?") 'lyskom-help)
(define-key lyskom-en-edit-prefix (kbd "C-r C-c") 'kom-edit-show-commented)
(define-key lyskom-en-edit-prefix (kbd "C-i ?") 'lyskom-help)
(define-key lyskom-en-edit-prefix (kbd "C-i C-c") 'kom-edit-insert-commented)
(define-key lyskom-en-edit-prefix (kbd "C-y") 'kom-edit-insert-commented) (define-key lyskom-en-edit-prefix (kbd "C-y") 'kom-edit-insert-commented)
(define-key lyskom-en-edit-prefix (kbd "C-i C-y") 'kom-edit-insert-commented)
(define-key lyskom-en-edit-prefix (kbd "C-b") 'kom-edit-insert-buglist) (define-key lyskom-en-edit-prefix (kbd "C-b") 'kom-edit-insert-buglist)
(define-key lyskom-en-edit-prefix (kbd "C-i 1") 'kom-edit-insert-digit-text) (define-key lyskom-en-edit-prefix (kbd "C-c") 'kom-edit-send)
(define-key lyskom-en-edit-prefix (kbd "C-i 2") 'kom-edit-insert-digit-text) (define-key lyskom-en-edit-prefix (kbd "C-s") 'kom-edit-ispell-message)
(define-key lyskom-en-edit-prefix (kbd "C-i 3") 'kom-edit-insert-digit-text) (define-key lyskom-en-edit-prefix (kbd "C-k") 'kom-edit-quit)
(define-key lyskom-en-edit-prefix (kbd "C-i 4") 'kom-edit-insert-digit-text)
(define-key lyskom-en-edit-prefix (kbd "C-i 5") 'kom-edit-insert-digit-text) (define-key lyskom-en-edit-review-prefix (kbd "?") 'lyskom-help)
(define-key lyskom-en-edit-prefix (kbd "C-i 6") 'kom-edit-insert-digit-text) (define-key lyskom-en-edit-review-prefix (kbd "C-c") 'kom-edit-show-commented)
(define-key lyskom-en-edit-prefix (kbd "C-i 7") 'kom-edit-insert-digit-text)
(define-key lyskom-en-edit-prefix (kbd "C-i 8") 'kom-edit-insert-digit-text) (define-key lyskom-en-edit-insert-prefix (kbd "?") 'lyskom-help)
(define-key lyskom-en-edit-prefix (kbd "C-i 9") 'kom-edit-insert-digit-text) (define-key lyskom-en-edit-insert-prefix (kbd "C-c") 'kom-edit-insert-commented)
(define-key lyskom-en-edit-prefix (kbd "C-i SPC") 'kom-edit-insert-text) (define-key lyskom-en-edit-insert-prefix (kbd "C-y") 'kom-edit-insert-commented)
(define-key lyskom-en-edit-prefix (kbd "C-i C-l") 'kom-edit-insert-link) (define-key lyskom-en-edit-insert-prefix (kbd "1") 'kom-edit-insert-digit-text)
(define-key lyskom-en-edit-prefix (kbd "C-i C-i") 'kom-insert-last-info-nodename) (define-key lyskom-en-edit-insert-prefix (kbd "2") 'kom-edit-insert-digit-text)
(define-key lyskom-en-edit-prefix (kbd "C-a") 'lyskom-en-edit-add-prefix) (define-key lyskom-en-edit-insert-prefix (kbd "3") 'kom-edit-insert-digit-text)
(define-key lyskom-en-edit-prefix (kbd "C-a C-r") 'kom-edit-add-recipient) (define-key lyskom-en-edit-insert-prefix (kbd "4") 'kom-edit-insert-digit-text)
(define-key lyskom-en-edit-prefix (kbd "C-a C-c") 'kom-edit-add-copy) (define-key lyskom-en-edit-insert-prefix (kbd "5") 'kom-edit-insert-digit-text)
(define-key lyskom-en-edit-prefix (kbd "C-a <RET>") 'kom-edit-move-text) (define-key lyskom-en-edit-insert-prefix (kbd "6") 'kom-edit-insert-digit-text)
(define-key lyskom-en-edit-prefix (kbd "C-a C-x") 'kom-edit-add-cross-reference) (define-key lyskom-en-edit-insert-prefix (kbd "7") 'kom-edit-insert-digit-text)
(define-key lyskom-en-edit-prefix (kbd "C-x C-p") 'kom-edit-add-personal-comments) (define-key lyskom-en-edit-insert-prefix (kbd "8") 'kom-edit-insert-digit-text)
(define-key lyskom-en-edit-prefix (kbd "C-x C-n") 'kom-edit-add-no-comments) (define-key lyskom-en-edit-insert-prefix (kbd "9") 'kom-edit-insert-digit-text)
(define-key lyskom-en-edit-prefix (kbd "C-x C-r") 'kom-edit-add-read-confirm-request) (define-key lyskom-en-edit-insert-prefix (kbd "SPC") 'kom-edit-insert-text)
(define-key lyskom-en-edit-prefix (kbd "C-a ?") 'lyskom-help)) (define-key lyskom-en-edit-insert-prefix (kbd "C-l") 'kom-edit-insert-link)
(define-key lyskom-en-edit-insert-prefix (kbd "C-i") 'kom-edit-insert-last-info-nodename)
(define-key lyskom-en-edit-add-prefix (kbd "C-r") 'kom-edit-add-recipient)
(define-key lyskom-en-edit-add-prefix (kbd "C-c") 'kom-edit-add-copy)
(define-key lyskom-en-edit-add-prefix (kbd "<RET>") 'kom-edit-move-text)
(define-key lyskom-en-edit-add-prefix (kbd "C-x") 'kom-edit-add-cross-reference)
(define-key lyskom-en-edit-add-prefix (kbd "C-p") 'kom-edit-add-personal-comments)
(define-key lyskom-en-edit-add-prefix (kbd "C-n") 'kom-edit-add-no-comments)
(define-key lyskom-en-edit-add-prefix (kbd "C-r") 'kom-edit-add-read-confirm-request)
(define-key lyskom-en-edit-add-prefix (kbd "?") 'lyskom-help))
......
...@@ -868,6 +868,9 @@ All key bindings: ...@@ -868,6 +868,9 @@ All key bindings:
;;; ;;;
(defun kom-filter-edit () (defun kom-filter-edit ()
"Interactively edit text filters. This command starts a special mode
in which it is possble to create and alter filters. Use this to remove
undesired filters and to create complex filters."
(interactive) (interactive)
(let ((buf (current-buffer)) (let ((buf (current-buffer))
(filters lyskom-filter-list) (filters lyskom-filter-list)
......
...@@ -187,10 +187,8 @@ be used to get a description of the corresponding error." ...@@ -187,10 +187,8 @@ be used to get a description of the corresponding error."
(defun kom-recover (&optional refetch) (defun kom-recover (&optional refetch)
"Try to recover from an error. "Try to recover from an error.
If the optional argument REFETCH is non-nil, all caches are cleared and If the optional argument REFETCH is non-nil or the funcion is called
`lyskom-refetch' is called. Note that when called interactively, interactively, all caches are cleared and the membership is re-read."
REFETCH is always non-nil, regardless of the prefix argument. This is
by design."
(interactive (list t)) (interactive (list t))
(lyskom-init-parse lyskom-buffer) (lyskom-init-parse lyskom-buffer)
(setq lyskom-call-data nil) (setq lyskom-call-data nil)
...@@ -3905,6 +3903,10 @@ If MEMBERSHIPs prioriy is 0, it always returns nil." ...@@ -3905,6 +3903,10 @@ If MEMBERSHIPs prioriy is 0, it always returns nil."
;; (lyskom-message "%s" (lyskom-get-string 'protocol-error) err)) ;; (lyskom-message "%s" (lyskom-get-string 'protocol-error) err))
) )
;; (unwind-protect
;; (save-excursion (set-buffer (process-buffer proc))
;; (lyskom-check-mship-lists)))
(setq lyskom-quit-flag (or lyskom-quit-flag quit-flag)) (setq lyskom-quit-flag (or lyskom-quit-flag quit-flag))
(setq quit-flag nil) (setq quit-flag nil)
(when lyskom-need-prompt-update (when lyskom-need-prompt-update
......
...@@ -146,8 +146,7 @@ This function does not tell the server about the change." ...@@ -146,8 +146,7 @@ This function does not tell the server about the change."
(defun lyskom-change-membership-position (conf-no new-position) (defun lyskom-change-membership-position (conf-no new-position)
"Change the position of memberhip for CONF-NO to NEW-POSITION. "Change the position of memberhip for CONF-NO to NEW-POSITION.
This function does not tell the server about the change." This function does not tell the server about the change."
(let* ((mship (lyskom-get-membership conf-no t)) (let* ((mship (lyskom-get-membership conf-no t)))
(old-position (membership->position mship)))
(when mship (when mship
(set-membership->position mship new-position) (set-membership->position mship new-position)
(lyskom-replace-membership mship)))) (lyskom-replace-membership mship))))
...@@ -1687,7 +1686,7 @@ With prefix arg, contract only those that were created by self." ...@@ -1687,7 +1686,7 @@ With prefix arg, contract only those that were created by self."
"Display a list of all memberships with the option to change order, "Display a list of all memberships with the option to change order,
priority, flags, and a number of other things. priority, flags, and a number of other things.
See `kom-priotitize-in-window'." See `kom-prioritize-in-window'."
(interactive) (interactive)
(lyskom-prioritize)) (lyskom-prioritize))
......
...@@ -112,7 +112,7 @@ kom-review-marks-texts-as-read toggled." ...@@ -112,7 +112,7 @@ kom-review-marks-texts-as-read toggled."
(def-kom-command kom-review-all () (def-kom-command kom-review-all ()
"Review all articles written by a particular author to a particular "Review all texts written by a particular author to a particular
conference. This can also be accomplished by using `kom-review-by-to' conference. This can also be accomplished by using `kom-review-by-to'
and specifying zero texts. and specifying zero texts.
...@@ -124,7 +124,7 @@ all review-related functions." ...@@ -124,7 +124,7 @@ all review-related functions."
(lyskom-review-by-to 0)) (lyskom-review-by-to 0))
(def-kom-command kom-unread-all () (def-kom-command kom-unread-all ()
"Mark all articles written by a particular author to a particular "Mark all texts written by a particular author to a particular
conference as unread. This can also be accomplished by using conference as unread. This can also be accomplished by using
`kom-unread-by-to' and specifying zero texts." `kom-unread-by-to' and specifying zero texts."
(interactive) (interactive)
...@@ -132,7 +132,7 @@ conference as unread. This can also be accomplished by using ...@@ -132,7 +132,7 @@ conference as unread. This can also be accomplished by using