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.
>

src/ChangeLog

+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>
 
 	* swedish-strings.el (lyskom-sv-mode-map): Added keybindings for

src/edit-text.el

@@ -436,12 +436,16 @@ so it's not as clean as it ought to be."
 ;;;
 
 (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)
   (lyskom-edit-send 'initiate-create-anonymous-text t))
 
 (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)
    (if (and (lyskom-default-value 'lyskom-is-anonymous)
             (lyskom-j-or-n-p 'do-send-anonymous))
@@ -658,7 +662,7 @@ anonymously and take actions to avoid revealing the sender."
 (defun lyskom-ispell-text ()
   "Check spelling of the text body.
 Put this in kom-send-text-hook"
-  (kom-ispell-message)
+  (kom-edit-ispell-message)
   t)
 
 
@@ -668,10 +672,13 @@ Put this in kom-send-text-hook"
   (defvar ispell-message-start-skip nil)
   (defvar ispell-message-end-skip nil))
 
-(defun kom-ispell-message ()
-  "Check spelling of the text.
-kom-ispell-dictionary is the dictionary to use to check spelling.
-Based on ispell-message."
+(defalias 'kom-ispell-message 'kom-edit-ispell-message)
+(defun kom-edit-ispell-message ()
+  "Check spelling of the text. Spelling is checked using ispell
+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)
   (require 'ispell)
   (let ((ispell-dictionary (or kom-ispell-dictionary ispell-dictionary))
@@ -1058,7 +1065,7 @@ Cannot be called from a callback."
 
 
 (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)
   (let ((edit-buffer (current-buffer)))
     (goto-char (point-max))
@@ -1078,8 +1085,11 @@ Cannot be called from a callback."
 
 
 (defun kom-edit-insert-commented (arg)
-  "Insert the commented text. Unless an empty prefix argument is
-given, prepend each line with your commenting prefix (or '>')."
+  "Insert the commented text, prepending each line with the
+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")
   (lyskom-edit-get-commented
    'lyskom-edit-insert-commented
@@ -1088,19 +1098,24 @@ given, prepend each line with your commenting prefix (or '>')."
 
 
 (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)
   (lyskom-edit-get-commented 'lyskom-edit-insert-buglist))
 
 
 (defun kom-edit-insert-digit-text ()
+  "Prompt for a text to insert. Excluded from manual."
   (interactive)
   (setq unread-command-events (cons last-command-event unread-command-events))
   (call-interactively 'kom-edit-insert-text nil))
 
 
 (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
 		(cond
 		 ((null current-prefix-arg)
@@ -1154,8 +1169,12 @@ WINDOW plus any optional arguments given in ARG-LIST."
 (defvar Info-current-file)
 
 ;; NOTUSED: kom-yank-info-nodename
-(defun kom-yank-info-nodename ()
-  "Put the current Info-node on the kill-ring."
+(defalias 'kom-yank-info-nodename 'kom-edit-yank-info-nodename)
+(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)
   (kill-new (format "*Note %s: (%s)%s,"
 		    Info-current-node
@@ -1164,7 +1183,8 @@ WINDOW plus any optional arguments given in ARG-LIST."
 
 
 ;; 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."
   (interactive)
   (condition-case nil
@@ -1185,7 +1205,10 @@ WINDOW plus any optional arguments given in ARG-LIST."
 ;;;  Changed by: Linus Tolke
 
 (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)
   (let* ((edit-buffer (current-buffer))
          (insert-at (point-min-marker))
@@ -1202,25 +1225,38 @@ WINDOW plus any optional arguments given in ARG-LIST."
 
 
 (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)
   (lyskom-edit-add-recipient/copy 'added-recipient nil 'RECPT))
 
 
 (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)
   (lyskom-edit-add-recipient/copy 'added-blank-carbon-copy nil 'BCC-RECPT))
 
 
 (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)
   (lyskom-edit-add-recipient/copy 'added-carbon-copy nil 'CC-RECPT))
 
 (defun kom-edit-move-text ()
-  "Adds a conference as a recipient, and changes all other recipients to
-CC recipients."
+  "Adds a regular recipient to the text, or converts an existing
+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)
   (lyskom-edit-add-recipient/copy 'who-to-move-to-q
                                   'lyskom-edit-move-recipients))
@@ -1342,12 +1378,21 @@ RECPT-TYPE is the type of recipient to add."
     
 
 (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)
   (let ((item (lyskom-read-cross-reference-and-get-aux-item)))
     (when item
       (lyskom-edit-insert-aux-item item))))
 
 (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)
   (lyskom-edit-insert-aux-item
    (lyskom-create-aux-item 0 6 0 0
@@ -1356,6 +1401,10 @@ RECPT-TYPE is the type of recipient to add."
                            0 "")))
 
 (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)
   (lyskom-edit-insert-aux-item
    (lyskom-create-aux-item 0 4 0 0
@@ -1364,6 +1413,10 @@ RECPT-TYPE is the type of recipient to add."
                            0 "")))
 
 (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)
   (lyskom-edit-insert-aux-item
    (lyskom-create-aux-item 0 5 0 0
@@ -1372,6 +1425,10 @@ RECPT-TYPE is the type of recipient to add."
                            0 "")))
 
 (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)
   (lyskom-edit-insert-aux-item
    (lyskom-create-aux-item 0 34 0 0
@@ -1380,6 +1437,9 @@ RECPT-TYPE is the type of recipient to add."
                            0 "")))
 
 (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)
   (let ((item (lyskom-read-link)))
     (when item
@@ -1951,6 +2011,7 @@ buglist style, automating the removal of closed subjects and change-marks."
 ;;; Tab between buttons in the header
 
 (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")
   (let ((header-end (lyskom-edit-find-separator))
         (start (point))
@@ -1988,6 +2049,7 @@ buglist style, automating the removal of closed subjects and change-marks."
         (setq num (1- num) start (point))))))
 
 (defun kom-edit-prev-button (num)
+  "Move to the previous link. Excluded from manual."
   (interactive "p")
   (let ((header-end (lyskom-edit-find-separator)))
     (while (> num 0)

src/english-strings.el

@@ -60,7 +60,11 @@
 
 ;;; 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
     nil
@@ -70,6 +74,7 @@
   (define-prefix-command 'lyskom-en-edit-insert-prefix)
   (define-prefix-command 'lyskom-en-edit-aux-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 'button2up 'button2))) 'kom-mouse-null)
   (define-key lyskom-en-edit-mode-map (kbd (lyskom-keys 'button3)) 'kom-popup-menu)
@@ -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 "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 "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 "?")	'lyskom-help)
   (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 "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-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-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-i 1") 'kom-edit-insert-digit-text)
-  (define-key lyskom-en-edit-prefix (kbd "C-i 2") 'kom-edit-insert-digit-text)
-  (define-key lyskom-en-edit-prefix (kbd "C-i 3") 'kom-edit-insert-digit-text)
-  (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-prefix (kbd "C-i 6") 'kom-edit-insert-digit-text)
-  (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-prefix (kbd "C-i 9") 'kom-edit-insert-digit-text)
-  (define-key lyskom-en-edit-prefix (kbd "C-i SPC") 'kom-edit-insert-text)
-  (define-key lyskom-en-edit-prefix (kbd "C-i C-l") 'kom-edit-insert-link)
-  (define-key lyskom-en-edit-prefix (kbd "C-i C-i") 'kom-insert-last-info-nodename)
-  (define-key lyskom-en-edit-prefix (kbd "C-a") 'lyskom-en-edit-add-prefix)
-  (define-key lyskom-en-edit-prefix (kbd "C-a C-r") 'kom-edit-add-recipient)
-  (define-key lyskom-en-edit-prefix (kbd "C-a C-c") 'kom-edit-add-copy)
-  (define-key lyskom-en-edit-prefix (kbd "C-a <RET>") 'kom-edit-move-text)
-  (define-key lyskom-en-edit-prefix (kbd "C-a C-x") 'kom-edit-add-cross-reference)
-  (define-key lyskom-en-edit-prefix (kbd "C-x C-p") 'kom-edit-add-personal-comments)
-  (define-key lyskom-en-edit-prefix (kbd "C-x C-n") 'kom-edit-add-no-comments)
-  (define-key lyskom-en-edit-prefix (kbd "C-x C-r") 'kom-edit-add-read-confirm-request)
-  (define-key lyskom-en-edit-prefix (kbd "C-a ?") 'lyskom-help))
+  (define-key lyskom-en-edit-prefix (kbd "C-c")	'kom-edit-send)
+  (define-key lyskom-en-edit-prefix (kbd "C-s") 'kom-edit-ispell-message)
+  (define-key lyskom-en-edit-prefix (kbd "C-k")	'kom-edit-quit)
+
+  (define-key lyskom-en-edit-review-prefix (kbd "?") 'lyskom-help)
+  (define-key lyskom-en-edit-review-prefix (kbd "C-c") 'kom-edit-show-commented)
+
+  (define-key lyskom-en-edit-insert-prefix (kbd "?") 'lyskom-help)
+  (define-key lyskom-en-edit-insert-prefix (kbd "C-c") 'kom-edit-insert-commented)
+  (define-key lyskom-en-edit-insert-prefix (kbd "C-y") 'kom-edit-insert-commented)
+  (define-key lyskom-en-edit-insert-prefix (kbd "1") 'kom-edit-insert-digit-text)
+  (define-key lyskom-en-edit-insert-prefix (kbd "2") 'kom-edit-insert-digit-text)
+  (define-key lyskom-en-edit-insert-prefix (kbd "3") 'kom-edit-insert-digit-text)
+  (define-key lyskom-en-edit-insert-prefix (kbd "4") 'kom-edit-insert-digit-text)
+  (define-key lyskom-en-edit-insert-prefix (kbd "5") 'kom-edit-insert-digit-text)
+  (define-key lyskom-en-edit-insert-prefix (kbd "6") 'kom-edit-insert-digit-text)
+  (define-key lyskom-en-edit-insert-prefix (kbd "7") 'kom-edit-insert-digit-text)
+  (define-key lyskom-en-edit-insert-prefix (kbd "8") 'kom-edit-insert-digit-text)
+  (define-key lyskom-en-edit-insert-prefix (kbd "9") 'kom-edit-insert-digit-text)
+  (define-key lyskom-en-edit-insert-prefix (kbd "SPC") 'kom-edit-insert-text)
+  (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))
 
 
 

src/filter-edit.el

@@ -868,6 +868,9 @@ All key bindings:
 ;;;
 
 (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)
   (let ((buf (current-buffer))
         (filters lyskom-filter-list)

src/lyskom-rest.el

@@ -187,10 +187,8 @@ be used to get a description of the corresponding error."
 
 (defun kom-recover (&optional refetch)
   "Try to recover from an error.
-If the optional argument REFETCH is non-nil, all caches are cleared and
-`lyskom-refetch' is called. Note that when called interactively, 
-REFETCH is always non-nil, regardless of the prefix argument. This is
-by design."
+If the optional argument REFETCH is non-nil or the funcion is called
+interactively, all caches are cleared and the membership is re-read."
   (interactive (list t))
   (lyskom-init-parse lyskom-buffer)
   (setq lyskom-call-data nil)
@@ -3905,6 +3903,10 @@ If MEMBERSHIPs prioriy is 0, it always returns nil."
 	  ;;   (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 quit-flag nil)
       (when lyskom-need-prompt-update

src/mship-edit.el

@@ -146,8 +146,7 @@ This function does not tell the server about the change."
 (defun lyskom-change-membership-position (conf-no new-position)
   "Change the position of memberhip for CONF-NO to NEW-POSITION.
 This function does not tell the server about the change."
-  (let* ((mship (lyskom-get-membership conf-no t))
-         (old-position (membership->position mship)))
+  (let* ((mship (lyskom-get-membership conf-no t)))
     (when mship
       (set-membership->position mship new-position)
        (lyskom-replace-membership mship))))
@@ -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,
 priority, flags, and a number of other things.
 
-See `kom-priotitize-in-window'."
+See `kom-prioritize-in-window'."
   (interactive)
   (lyskom-prioritize))
 

src/review.el

@@ -112,7 +112,7 @@ kom-review-marks-texts-as-read toggled."
 
 
 (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'
 and specifying zero texts.
 
@@ -124,7 +124,7 @@ all review-related functions."
   (lyskom-review-by-to 0))
 
 (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
 `kom-unread-by-to' and specifying zero texts."
   (interactive)
@@ -132,7 +132,7 @@ conference as unread. This can also be accomplished by using
 
 
 (def-kom-command kom-review-more (count)
-  "Review more articles using the same critera as the last review
+  "Review more texts using the same critera as the last review
 performed with `kom-review-by-to'. The review will be resumed where
 the previous review finished.
 
@@ -188,7 +188,7 @@ all review-related functions."
                                (lyskom-insert-string 'no-such-text)))))))
 
 (def-kom-command kom-unread-more (count)
-  "Mark more articles unread using the same critera as the last 
+  "Mark more texts unread using the same critera as the last 
 mark unread performed with `kom-unread-by-to'."
   (interactive "P")
   (if (not lyskom-have-unread)
@@ -239,7 +239,7 @@ mark unread performed with `kom-unread-by-to'."
 
 
 (def-kom-command kom-review-first (&optional count)
-  "Review the first N articles written by a particular author to some
+  "Review the first N texts written by a particular author to some
 conference. With no author specified, review texts by all authors.
 With zero texts specified, review all text. With no conference
 specified, review texts to all conferences. With a negative number of
@@ -256,7 +256,7 @@ all review-related functions."
                             (lyskom-get-string 'review-how-many) 1)))))
 
 (def-kom-command kom-unread-first (&optional count)
-  "Mark the first N articles written by a particular author to some
+  "Mark the first N texts written by a particular author to some
 conference as unread. With no author specified, review texts by all 
 authors. With zero texts specified, review all text. With no conference
 specified, review texts to all conferences. With a negative number of
@@ -269,7 +269,7 @@ texts, review the last N texts instead of the first (you can use
 
 
 (def-kom-command kom-review-by-to (&optional count)
-  "Review the last N articles written by a particular author to some
+  "Review the last N texts written by a particular author to some
 conference. With no author specified, review texts by all authors.
 With zero texts specified, review all text. With no conference
 specified, review texts to all conferences. With a negative number of
@@ -349,7 +349,7 @@ all review-related functions."
 
 
 (def-kom-command kom-unread-by-to (&optional count)
-  "Mark the last N articles written by a particular author to some
+  "Mark the last N texts written by a particular author to some
 conference as unread. With no author specified, review texts by all 
 authors. With zero texts specified, review all text. With no conference
 specified, review texts to all conferences. With a negative number of
@@ -1512,7 +1512,7 @@ all review-related functions."
 
 
 (def-kom-command kom-review-comments (text-no)
-  "Review all comments to the selected text text. This command only
+  "Review all comments to the selected text. This command only
 reviews one level of comments. To see the entire comment tree, use
 `kom-review-tree' instead.
 
@@ -1577,7 +1577,7 @@ all review-related functions."
 
 
 (def-kom-command kom-review-cross-references (text-no)
-  "Review all cross-referenced texts from the selected text `text-no'.
+  "Review all texts cross-referenced from the selected text.
 
 This command accepts text number prefix arguments \(see
 `lyskom-read-text-no-prefix-arg').
@@ -1636,7 +1636,7 @@ displays and builds list."
 (def-kom-command kom-unread-comments (text-no)
   "Mark all comments to the selected text text as unread. This
 command only marks one level of comments as unread. To mark the 
-entire comment tree unread, use `kom-unrad-tree' instead.
+entire comment tree unread, use `kom-unread-tree' instead.
 
 This command accepts text number prefix arguments \(see
 `lyskom-read-text-no-prefix-arg')."

src/startup.el

@@ -738,7 +738,7 @@ This is called at login and after prioritize and set-unread."
   (lyskom-reset-prefetch)
   (let ((lyskom-inhibit-prefetch t))
     (let ((unreads (blocking-do 'get-unread-confs lyskom-pers-no)))
-      (lyskom-traverse conf-no (nreverse (conf-no-list->conf-nos unreads))
+      (lyskom-traverse conf-no (conf-no-list->conf-nos unreads)
         (lyskom-prefetch-one-membership conf-no lyskom-pers-no)))
     (lyskom-prefetch-membership lyskom-pers-no))
   (lyskom-start-prefetch)

src/swedish-strings.el

@@ -59,7 +59,11 @@
 
 ;;; Set the keymap for lyskom-edit-mode
 
-(defvar lyskom-sv-edit-prefix nil)
+(defvar lyskom-sv-edit-prefix)
+(defvar lyskom-sv-edit-review-prefix)
+(defvar lyskom-sv-edit-insert-prefix)
+(defvar lyskom-sv-edit-aux-prefix)
+(defvar lyskom-sv-edit-add-prefix)
 
 (if lyskom-sv-edit-mode-map
     nil
@@ -79,63 +83,78 @@
   (define-key lyskom-sv-edit-mode-map (kbd (lyskom-keys (lyskom-xemacs-or-gnu 'button2up 'button2))) 'kom-mouse-null)
   (define-key lyskom-sv-edit-mode-map (kbd (lyskom-keys 'button3)) 'kom-popup-menu)
   (define-key lyskom-sv-edit-mode-map (kbd (lyskom-keys 'button3up))     'kom-mouse-null)
+
   (define-key lyskom-sv-edit-prefix (kbd "C-x")     'lyskom-sv-edit-aux-prefix)
-  (define-key lyskom-sv-edit-prefix (kbd "?")       'lyskom-help)
-  (define-key lyskom-sv-edit-prefix (kbd "}")       'lyskom-sv-edit-review-prefix)
-  (define-key lyskom-sv-edit-prefix (kbd "]")       'lyskom-sv-edit-review-prefix)
-  (define-key lyskom-sv-edit-prefix (kbd "C-]")     'lyskom-sv-edit-review-prefix)
-  (define-key lyskom-sv-edit-prefix (kbd "C-}")     'lyskom-sv-edit-review-prefix)
-  (define-key lyskom-sv-edit-prefix (kbd "C-")     'lyskom-sv-edit-review-prefix)
-  (define-key lyskom-sv-edit-prefix (kbd "C-")     'lyskom-sv-edit-review-prefix)
-  (define-key lyskom-sv-edit-prefix [(control aring)]     'lyskom-sv-edit-review-prefix)
-  (define-key lyskom-sv-edit-prefix [(control Aring)]     'lyskom-sv-edit-review-prefix)
-  (define-key lyskom-sv-edit-prefix [(control 229)]     'lyskom-sv-edit-review-prefix)
-  (define-key lyskom-sv-edit-prefix [(control 197)]     'lyskom-sv-edit-review-prefix)
-  (define-key lyskom-sv-edit-prefix "\205"     'lyskom-sv-edit-review-prefix) ;For windows
+  (define-key lyskom-sv-edit-prefix (kbd "C-a")     'lyskom-sv-edit-add-prefix)
+  (define-key lyskom-sv-edit-prefix (kbd "C-i")     'lyskom-sv-edit-insert-prefix)
+  (define-key lyskom-sv-edit-prefix (kbd "TAB")     'lyskom-sv-edit-insert-prefix)
 
+  (lyskom-try-define-key lyskom-sv-edit-prefix (kbd "C-]")       'lyskom-sv-edit-review-prefix)
+  (lyskom-try-define-key lyskom-sv-edit-prefix (kbd "C-}")       'lyskom-sv-edit-review-prefix)
+  (lyskom-try-define-key lyskom-sv-edit-prefix (kbd "C-")       'lyskom-sv-edit-review-prefix)
+  (lyskom-try-define-key lyskom-sv-edit-prefix (kbd "C-")       'lyskom-sv-edit-review-prefix)
+  (lyskom-try-define-key lyskom-sv-edit-prefix [(control aring)] 'lyskom-sv-edit-review-prefix)
+  (lyskom-try-define-key lyskom-sv-edit-prefix [(control Aring)] 'lyskom-sv-edit-review-prefix)
+  (lyskom-try-define-key lyskom-sv-edit-prefix "\205"            'lyskom-sv-edit-review-prefix) ; For windows and Emacs 19
+
+  (lyskom-try-define-key lyskom-sv-edit-prefix (kbd "") 'lyskom-sv-edit-review-prefix)
+  (lyskom-try-define-key lyskom-sv-edit-prefix (kbd "}") 'lyskom-sv-edit-review-prefix)
+  (lyskom-try-define-key lyskom-sv-edit-prefix (kbd "]") 'lyskom-sv-edit-review-prefix)
+  (lyskom-try-define-key lyskom-sv-edit-prefix [aring]   'lyskom-sv-edit-review-prefix)
+  (lyskom-try-define-key lyskom-sv-edit-prefix [Aring]   'lyskom-sv-edit-review-prefix)
+  (lyskom-try-define-key lyskom-sv-edit-prefix []       'lyskom-sv-edit-review-prefix)
+  (lyskom-try-define-key lyskom-sv-edit-prefix []       'lyskom-sv-edit-review-prefix)
+  (lyskom-try-define-key lyskom-sv-edit-prefix [229]     'lyskom-sv-edit-review-prefix)
+  (lyskom-try-define-key lyskom-sv-edit-prefix [197]     'lyskom-sv-edit-review-prefix)
+  (lyskom-try-define-key lyskom-sv-edit-prefix [2277]    'lyskom-sv-edit-review-prefix)
+  (lyskom-try-define-key lyskom-sv-edit-prefix [2245]    'lyskom-sv-edit-review-prefix)
+  (lyskom-try-define-key lyskom-sv-edit-prefix [3909]    'lyskom-sv-edit-review-prefix)
+  (lyskom-try-define-key lyskom-sv-edit-prefix [3941]    'lyskom-sv-edit-review-prefix)
 
+  (define-key lyskom-sv-edit-prefix (kbd "?")       'lyskom-help)
   (define-key lyskom-sv-edit-prefix (kbd "*")       'kom-button-press)
   (define-key lyskom-sv-edit-prefix (kbd "=")       'kom-menu-button-press)
-  (define-key lyskom-sv-edit-prefix (kbd "C-i")     'lyskom-sv-edit-insert-prefix)
-  (define-key lyskom-sv-edit-prefix (kbd "TAB")     'lyskom-sv-edit-insert-prefix)
   (define-key lyskom-sv-edit-prefix (kbd "C-c")     'kom-edit-send)
-  (define-key lyskom-sv-edit-prefix (kbd "C-s")     'kom-ispell-message)
+  (define-key lyskom-sv-edit-prefix (kbd "C-s")     'kom-edit-ispell-message)
   (define-key lyskom-sv-edit-prefix (kbd "C-k")     'kom-edit-quit)
-  (define-key lyskom-sv-edit-prefix (kbd "} ?")     'lyskom-help)
-  (define-key lyskom-sv-edit-prefix (kbd "} C-k")   'kom-edit-show-commented)
-  (define-key lyskom-sv-edit-prefix (kbd "} k")     'kom-edit-show-commented)
-  (define-key lyskom-sv-edit-prefix (kbd "C-i ?")   'lyskom-help)
-  (define-key lyskom-sv-edit-prefix (kbd "C-i C-k") 'kom-edit-insert-commented)
   (define-key lyskom-sv-edit-prefix (kbd "C-y")     'kom-edit-insert-commented)
-  (define-key lyskom-sv-edit-prefix (kbd "C-i C-y")     'kom-edit-insert-commented)
   (define-key lyskom-sv-edit-prefix (kbd "C-b")     'kom-edit-insert-buglist)