Commit 9214424f authored by David Byers's avatar David Byers
Browse files

Added variable kom-mark-read-texts-as-read-in-new-recipient.

Changed default value of kom-created-texts-are-read.
Added startup checks for multibyte characters and default character coding.
parent 3d3c33e1
2002-10-20 David Byers <david.byers@swipnet.se>
* utilities.el (lyskom-check-configuration): New function to check
Emacs configuration on startup.
* startup.el (lyskom): Added call to lyskom-check-configuration.
* vars.el.in (kom-mark-read-texts-as-read-in-new-recipient): New
variable.
* async.el (lyskom-async-new-recipient): Use
kom-mark-read-texts-as-read-in-new-recipient.
2002-10-19 David Byers <david.byers@swipnet.se>
* vars.el.in (kom-created-texts-are-read): Changed default value
of kom-created-texts-are-read.
2002-10-16 David Byers <david.byers@swipnet.se>
* doc/NEWS-0.47.1: Updated to here.
......
......@@ -620,7 +620,8 @@ converted, before insertion."
;; If the text is read in another conference, mark it as read here too
;; unless the new recipient is the mailbox
(if (and (lyskom-text-read-at-least-once-p text-stat t)
(if (and kom-mark-read-texts-as-read-in-new-recipient
(lyskom-text-read-at-least-once-p text-stat t)
(not (eq conf-no lyskom-pers-no)))
(initiate-mark-as-read 'follow
nil
......
......@@ -32,7 +32,7 @@
(let ((path load-path)
(result nil))
(while path
(if (string-match "/site-lisp" (car path))
(if (string-match "/site-lisp/*$" (car path))
(progn (setq result (car path))
(setq path nil))
(setq path (cdr path))))
......
......@@ -1820,6 +1820,31 @@ Your text face scheme \"%#1s\" is missing the following faces:
Using the default face in place of these faces.
")
(no-mule-warning . "\
%#1@You have disabled support for multibyte characters (MULE) in emacs.
This may be due to a call to standard-display-european in your .emacs
or in one of the shared emacs startup files.
This software is designed to run with support for multibyte characters
enabled. Without this support texts may be displayed incorrectly, and
you may encounter problems writing texts. Consider enabling sypport
for multibyte characters in emacs.
")
(coding-system-mismatch-warning . "\
%#3@Your emacs is configured to encode characters using \"%#1s\",
but the LysKOM server you are using recommends \"%#2s\".
You may encounter problems when writing comments, and comments to your
texts may contain a mix of characters that cannot be encoded or
displayed correctly. Please consider changing your language
environment to one that uses \"%#2s\" to encode text.
")
))
......@@ -3631,6 +3656,11 @@ be saved in the server. Otherwise it will be saved in your .emacs.")
limiting the number of overlays it is possible to speed up operations
such as scrolling significantly. Each text requires 1-4 overlays for
highlighting, depending on other settings.")
(kom-mark-read-texts-as-read-in-new-recipient-doc . "\
When this is on, texts that have been read will automatically be
marked as read in any conferences they are added to. This only works
as long as the LysKOM session is logged in. Texts are never
automatically marked as read in your mailbox.")
;;
......@@ -3809,6 +3839,7 @@ be saved in the server. Otherwise it will be saved in your .emacs.")
(kom-format-html-authors-tag . "Format HTML-messages per author:")
(kom-keyboard-menu-immediate-selection-tag . "Shortcuts in text menus require confirmation:")
(kom-max-overlays-tag . "Maximum number of overlays:")
(kom-mark-read-texts-as-read-in-new-recipient-tag . "Mark read texts read when added to new recipients:")
)
)
......
......@@ -161,6 +161,7 @@
[kom-show-footnotes-immediately]
[kom-follow-comments-outside-membership]
[kom-follow-attachments]
[kom-mark-read-texts-as-read-in-new-recipient]
[kom-created-texts-are-read]
[kom-created-texts-are-saved]
[kom-review-uses-cache]
......@@ -520,6 +521,7 @@ customize buffer but do not save them to the server."
(kom-enabled-prompt-format-executing (string))
(kom-cite-string (string))
(kom-created-texts-are-read (toggle (yes no)))
(kom-mark-read-texts-as-read-in-new-recipient (toggle (yes no)))
(kom-review-uses-cache (toggle (yes no)))
(kom-review-marks-texts-as-read (toggle (yes no)))
(kom-created-texts-are-saved (choice ((const (no nil))
......
......@@ -240,6 +240,7 @@ clients of the event. See lyskom-mode for details on lyskom."
(setq lyskom-server-port port)
(setq lyskom-proc proc)
(lyskom-setup-faces)
(lyskom-check-configuration)
(lyskom-insert
(lyskom-format 'try-connect lyskom-clientversion host))
(set-process-filter proc 'lyskom-connect-filter)
......
......@@ -1834,6 +1834,32 @@ Ditt teckensnittsschema \"%#1s\" saknar f
Anvnder standardteckensnittet fr dessa instllningar.
")
(no-mule-warning . "\
%#1@Du har stdet fr multibytetecken (MULE) avslaget i emacs. Detta beror
antagligen p att du har ett anrop till standard-display-european
eller motsvarande i din .emacs, eller i ngon av systemets startfiler.
Elispklienten r gjord fr att kras med stdet fr multibytetecken
pslaget. Utan detta std kan inlgg visas fel, och du kan f problem
med att skapa inlgg. Du br drfr sl p stdet fr multibytetecken
i emacs.
")
(coding-system-mismatch-warning . "\
%#3@Din emacs r instlld p att i frsta hand koda tecken enligt
\"%#1s\", men den LysKOM-server du kr mot rekommenderar
\"%#2s\". Det innebr att kommentarer du skriver till
andras inlgg, och kommentarer till dina inlgg kan f en blandning av
tecken som inte gr att visa ordentligt. Du br byta sprkomgivning i
emacs till en som anvnder \"%#2s\" som frstahandsval fr
teckenkodning.
")
))
(lyskom-language-var local lyskom-month-names sv
......@@ -3690,6 +3716,11 @@ i servern. Annars sparas det i din .emacs.")
anvnds bland annat fr frgade inlggsbakgrunder). Genom att begrnsa
antalet markeringar kan scrollning g mycket fortare. Varje inlgg
behver mellan 1 och 4 markeringar beroende p andra instllningar.")
(kom-mark-read-texts-as-read-in-new-recipient-doc . "\
Om detta r pslaget s lsmarkeras redan lsta inlgg automatiskt i
mten de adderas till medan man r inloggad. Om man inte r inloggad
s sker inte denna lsmarkering. Inlgg som adderas till ens brevlda
lsmarkeras dock aldrig automatiskt.")
;;
......@@ -3868,6 +3899,7 @@ i servern. Annars sparas det i din .emacs.")
(kom-format-html-authors-tag . "Formattera HTML-meddelanden per frfattare:")
(kom-keyboard-menu-immediate-selection-tag . "Snabbval i textmenyer krver bekrftelse:")
(kom-max-overlays-tag . "Hgsta antal frgmarkeringar:")
(kom-mark-read-texts-as-read-in-new-recipient-tag . "Markera lsta inlgg lsta ven i nya mottagare:")
)
)
......
......@@ -38,13 +38,38 @@
(concat lyskom-clientversion-long
"$Id$\n"))
;;;
;;; Need Per Abrahamsens widget and custom packages There should be a
;;; better way of doing this, but I'll be darned if I know how. The
;;; various files need to be loaded in a very specific order.
;;;
;;; Define widget wrappers for all the functions in macros.el
(defvar coding-category-list)
(defun lyskom-check-configuration ()
;; Excuse my paranoia. This code is hardly tested at all, so I
;; really want it wrapped to prevent errors from breaking the
;; client. Plus it lets me check how to do stuff in Gnu Emacs 21
;; without worrying about compatibility with other versions.
(when kom-check-configuration-on-startup
(condition-case nil
(progn
;; Check that we have MULE
(when (and (>= emacs-major-version 20)
(boundp 'enable-multibyte-characters)
(not enable-multibyte-characters))
(lyskom-format-insert 'no-mule-warning
'(face kom-warning-face)
))
;; Check coding system
(when (and enable-multibyte-characters
(not (memq lyskom-server-coding-system
(coding-system-get
(symbol-value (car coding-category-list))
'alias-coding-systems))))
(lyskom-format-insert 'coding-system-mismatch-warning
(symbol-value (car coding-category-list))
lyskom-server-coding-system
'(face kom-warning-face)
))
)
(error nil)
)))
;;;
;;; Lisp utility functions
......
......@@ -194,6 +194,9 @@ The cdrs on the list may be either of:
(funcall my-get-text-no (abs prefix-arg) prompt default nil 17 4711)."
)
(def-kom-var kom-check-configuration-on-startup t
"*When non-nil, check Emacs configuration on client startup.")
(def-kom-var kom-keyboard-menu-immediate-selection nil
"*When non-nil, typing a keyboard shortcut in a keyboard menu selects
......@@ -366,10 +369,17 @@ The value of this variable is the file name on which to save new texts."
server
inherited)
(def-kom-var kom-created-texts-are-read t
(def-kom-var kom-created-texts-are-read nil
"*Non-nil means automatically mark texts that you create as read."
server)
(def-kom-var kom-mark-read-texts-as-read-in-new-recipient t
"*When t, silently mark texts as read when they are added to a new
recipient, if they have been read in any conference. When nil, do not
mark as read. Values other than t or nil are reserved for future
extensions."
server)
(def-kom-var kom-customize-in-window nil
"*Where to customize LysKOM. See kom-write-texts-in-window."
server)
......
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