> 2002-12-13 David Byers <david.byers@swipnet.se>

>
> 	* lyskom-rest.el (lyskom-update-prompt): Change `insert-string' to
> 	`insert' since the former is obsolete.
>
> 	Bog 928:
> 	* commands1.el (lyskom-times): Added Lucia.
>
> 	Finished bug 924:
> 	* option-edit.el (lyskom-nameday-widget): New widget type.
>
> 	* vars.el.in (kom-url-transformation-rules): Improved the
> 	Aftonbladet regexp.
>
> 2002-12-11  David Byers  <david.byers@swipnet.se>
>
> 	* swedish-strings.el (lyskom-sv-mode-map): Define swedish chars
> 	using all possible methods.
>
> 	* macros.el (lyskom-try-define-key): New macro.
>

src/ChangeLog

+2002-12-13  David Byers  <david.byers@swipnet.se>
+
+	* lyskom-rest.el (lyskom-update-prompt): Change `insert-string' to
+	`insert' since the former is obsolete.
+
+	Bog 928:
+	* commands1.el (lyskom-times): Added Lucia.
+
+	Finished bug 924:
+	* option-edit.el (lyskom-nameday-widget): New widget type.
+
+	* vars.el.in (kom-url-transformation-rules): Improved the
+	Aftonbladet regexp.
+
+2002-12-11  David Byers  <david.byers@swipnet.se>
+
+	* swedish-strings.el (lyskom-sv-mode-map): Define swedish chars
+	using all possible methods.
+
+	* macros.el (lyskom-try-define-key): New macro.
+
 2002-12-09  David Byers  <david.byers@swipnet.se>
 
 	Work on bug 924:

src/commands1.el

@@ -551,7 +551,7 @@ If optional USE-PRIORITY is non-nil then use that as the priority.
     (let ((priority
            (if (/= lyskom-pers-no (conf-stat->conf-no pers-conf-stat))
                (lyskom-read-num-range 0 255
-                                      (lyskom-get-string 'priority-q)
+                                      (lyskom-get-string 'other-priority-q)
                                       nil 100)
              (if (and (numberp kom-membership-default-priority)
                       (< kom-membership-default-priority 256)
@@ -2276,6 +2276,7 @@ If MARK-NO is nil, review all marked texts."
     ((nil  8 15 nil nil nil) . holdnose)
     ((nil 10 24 nil nil nil) . fnday)
     ((nil 11  1 nil nil nil) . allhelgonadag)
+    ((nil 12 13 nil nil nil) . luciaday)
     ((nil 12 24 nil nil nil) . xmaseve)
     ((nil 12 25 nil nil nil) . xmasday)
     ((nil 12 28 nil nil nil) . varnlosdag)

src/english-strings.el

@@ -151,6 +151,7 @@
 (lyskom-language-missing-string lyskom-message fnday en)
 (lyskom-language-missing-string lyskom-message allhelgonadag en)
 (lyskom-language-missing-string lyskom-message varnlosdag en)
+(lyskom-language-missing-string lyskom-message luciaday en)
 
 (lyskom-language-ending-mismatch lyskom-message carbon-copy-prefix en sv)
 (lyskom-language-ending-mismatch lyskom-message blank-carbon-copy-prefix en sv)
@@ -304,6 +305,7 @@ instead of removing it.")
     (where-to-add . "To which conference? ")
     (where-to-add-self . "Join which conference? ")
     (priority-q . "Priority of your membership? (0 (low) - 255 (high)) ")
+    (other-priority-q . "Priority of the membership? (0 (low) - 255 (high)) ")
     (done . "done.\n")
     (cancelled . "cancelled.\n")
     (nope . "didn't work.\n")
@@ -2743,6 +2745,10 @@ Select whether to execute command or keyboard macro.")
 
     (url-transform-regexp . "From (regexp):")
     (url-transform-newtext . " To:")
+
+    (default-namedays . "Namedays for current language")
+    (specific-namedays . "Specific name list:")
+
     ;;
     ;; Misc doc strings
     ;;
@@ -3403,8 +3409,9 @@ be saved in the server. Otherwise it will be saved in your .emacs.")
   instead.")
 
     (kom-show-namedays-doc . "\
-  This only works in Swedish. If you're running LysKOM in Swedish, turning
-  this on causes today's names to be shown when you ask for the time.")
+  When this is on, display the name of the day. You can choose to display
+  names from a list appropriate to the currently selected language. You
+  can also choose a specific list of names.")
 
     (kom-show-week-number-doc . "\
   The Time command shows week numbers if this is on.")

src/lyskom-rest.el

@@ -2852,7 +2852,7 @@ Set lyskom-current-prompt accordingly. Tell server what I am doing."
                (add-text-properties 0 (length prompt-text)
                                     '(read-only t rear-nonsticky t)
                                     prompt-text))
-              (insert-string prompt-text)
+              (insert prompt-text)
               ;; Delete the old prompt
               (when lyskom-current-prompt
                 (if (and lyskom-slow-mode 

src/macros.el

@@ -257,6 +257,11 @@ the current buffer, and its value is copied from the LysKOM buffer."
                   (lyskom-default-value (quote (, keymap))))
             (use-local-map (, keymap)))))
 
+(defmacro lyskom-try-define-key (map seq fn)
+  `(condition-case nil
+       (define-key ,map ,seq ,fn)
+     (error nil)))
+
 
 ;;; ============================================================
 ;;; Widget gunk

src/names.el

@@ -77,7 +77,8 @@ DATA is nameday data"
 
 (lyskom-define-namedays 'sv 
                         "Sverige"
-                        "Namnsdagar ur svenska sprknmndens nya namnlngd."
+                        "\
+Namnsdagar enligt svenska sprknmndens nya namnlngd."
                         '((1 . ((1 . ())
                                 (2 . ("Svea"))
                                 (3 . ("Alfred" "Alfrida"))
@@ -455,9 +456,11 @@ DATA is nameday data"
                                  (30 . ("Abel" "Set"))
                                  (31 . ("Sylvester"))))))
 
-(lyskom-define-namedays 'sv_1901
-                        "Sverge (fre 1901)"
-                        "Svenska namnlngden fr 1901"
+(lyskom-define-namedays 'sv-1901
+                        "Sverige (fre 1901)"
+                        "\
+Namnsdagar enligt namnlngd frn fre 1901, med uppenbara helgdagar
+borttagna"
                         '((1 . ((1 . ())
                                 (2 . ("Abel" "Set"))
                                 (3 . ("Enoch"))
@@ -848,8 +851,12 @@ DATA is nameday data"
                                  ))))
 
 (lyskom-define-namedays 'fi
-                        "Suomi"
-                        "Finska namnsdagar"
+                        "Finska"
+                        "\
+Namnsdagar ur ngon finsk namnlngd. Eftersom utvecklarna inte
+kan finska r beskrivningen p svenska, med frhoppningen att
+ngon som kan finska kommer att reta sig p den och skriva om
+texten p rtt sprk."
                         '((1 . ((1 . ())
                                 (2 . ("Aapeli"))
                                 (3 . ("Elmeri" "Elmer" "Elmo"))
@@ -1239,9 +1246,10 @@ DATA is nameday data"
                                  (31 . ("Sylvester" "Silvo"))
                                  ))))
 
-(lyskom-define-namedays 'fi_sv
+(lyskom-define-namedays 'fi-sv
                         "Finlandssvenska"
-                        "Finlandssvenska namnsdagar"
+                        "\
+Namnsdagar enligt ngon finlandssvenskt namnlngd."
                         '((1 . ((1 . ())
                                 (2 . ("Gehard" "Gert"))
                                 (3 . ("Elmer" "Helmer"))
@@ -1631,9 +1639,13 @@ DATA is nameday data"
                                  (31 . ("Sylvester"))
                                  ))))
 
-(lyskom-define-namedays 'fi_orthodox
-                        "Suomi (ortodox)"
-                        "Ortodoxa namnsdagar frn finland"
+(lyskom-define-namedays 'fi-orthodox
+                        "Finska (ortodoxa)"
+                        "\
+Namnsdagar ur ngon finsk ortodox namnlngd. Eftersom 
+utvecklarna inte kan finska r beskrivningen p svenska, med
+frhoppningen att ngon som kan finska kommer att reta sig
+p den och skriva om texten p rtt sprk."
                         '((1 . ((1 . ("Vasili" "Vilho" "Pasi"))
                                 (2 . ("Sylvester" "Tapio" "Serafim"))
                                 (3 . ("Malakia" "Harto"))
@@ -2025,7 +2037,7 @@ DATA is nameday data"
 
 
 
-(defun lyskom-list-nameday-lists ()
+(defun kom-list-nameday-lists ()
   (interactive)
   (with-output-to-temp-buffer "*Help*"
     (princ

src/option-edit.el

@@ -661,7 +661,9 @@ customize buffer but do not save them to the server."
                                     :indent 4))
     (kom-self-control (toggle (yes no)))
     (kom-ispell-dictionary (ispell-dictionary))
-    (kom-show-namedays (toggle (on off)))
+    (kom-show-namedays (choice ((const (off nil))
+                                (const (default-namedays t))
+                                (nameday nil :tag specific-namedays))))
 
     (kom-show-week-number (toggle (on off)))
     (kom-membership-default-placement (choice ((const (last last))
@@ -741,6 +743,7 @@ customize buffer but do not save them to the server."
     (const .  lyskom-item-widget)
     (repeat . lyskom-repeat-widget)
     (cons . lyskom-cons-widget)
+    (nameday . lyskom-nameday-widget)
     (kbd-macro . lyskom-kbd-macro-widget)
     (url-viewer . lyskom-url-viewer-widget)
     (ispell-dictionary . lyskom-ispell-dictionary-widget)
@@ -918,6 +921,21 @@ customize buffer but do not save them to the server."
           lyskom-languages))
    propl))
 
+(defun lyskom-nameday-widget (type &optional args propl)
+  (lyskom-build-simple-widget-spec
+   'menu-choice
+   (list ':format "%[%t%] %v"
+         ':case-fold t
+         ':args
+         (mapcar
+          (lambda (x)
+            (list 'item
+                  ':tag (nameday-data->name (cdr x))
+                  ':format "%t"
+                  ':value (nameday-data->code (cdr x))))
+          lyskom-namedays))
+   propl))
+
 (defun lyskom-ispell-dictionary-widget (type &optional args propl)
   (let ((tmp-dictionary-alist nil))
     (condition-case nil 

src/prefetch.el

@@ -703,8 +703,8 @@ Put the requests on QUEUE."
 (defun lyskom-prefetch-membership-handler (memberships pers-no queue)
   "Handle the return of the membership prefetch call."
   (lyskom-stop-prefetch)
-  (let ((size (length memberships))
-	(i 0)
+;;;  (let ((size (length memberships))
+;;;	(i 0)
 ;;; Commented out 1999-06-28 byers
 ;;; Used by removed code below
 ;;;        (old-mships (mapcar (lambda (mship)
@@ -712,7 +712,7 @@ Put the requests on QUEUE."
 ;;;                                    (membership->conf-no mship))
 ;;;                                   (membership->conf-no mship)))
 ;;;                            memberships))
-        )
+;;;        )
     (lyskom-insert-memberships-in-membership memberships)
 ;;;     (while (< i size)
 ;;;      (let ((membership (aref memberships i)))
@@ -736,7 +736,8 @@ Put the requests on QUEUE."
       (setq lyskom-membership-is-read (+ lyskom-membership-is-read
 					 lyskom-fetch-membership-length))
       (lyskom-prefetch-membership pers-no queue)
-      ))
+      )
+;;;)
   (lyskom-queue-enter queue 'FINISHED)
   (-- lyskom-pending-prefetch)
   (lyskom-start-prefetch))

src/swedish-strings.el

@@ -85,10 +85,12 @@
   (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 (lyskom-keys 'C-) 'lyskom-sv-edit-review-prefix)
   (define-key lyskom-sv-edit-prefix (lyskom-keys 'C-) 'lyskom-sv-edit-review-prefix)
   (define-key lyskom-sv-edit-prefix [(control )] 'lyskom-sv-edit-review-prefix)
   (define-key lyskom-sv-edit-prefix [(control )] 'lyskom-sv-edit-review-prefix)
+
   (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)
@@ -278,6 +280,7 @@ f
     (where-to-add . "Vilket mte skall han/hon adderas till? ")
     (where-to-add-self . "Vilket mte vill du bli medlem i? ")
     (priority-q . "Prioritet p ditt medlemskap i mtet? (0 (lg) - 255 (hg)) ")
+    (other-priority-q . "Prioritet p den adderades medlemskap i mtet? (0 (lg) - 255 (hg)) ")
     (done . "klart.\n")
     (cancelled . "avbrutet.\n")
     (nope . "det gick inte.\n")
@@ -499,6 +502,7 @@ i svensk datorhistoria. L
     (fnday . "FN-dagen.")
     (allhelgonadag . "Allhelgonadagen.")
     (varnlosdag . "Vrnlsa barns dag.")
+    (luciaday . "\nLuciadagen! Glm inte att lussa fr dina kollegor.")
 
     (total-users . "    Sammanlagt %#1d anvndare (%#2s).\n")
     (total-users-sans-date . "    Sammanlagt %#1d anvndare\n")
@@ -2281,6 +2285,8 @@ teckenkodning.
 (defvar lyskom-sv-list-prefix nil)
 (defvar lyskom-sv-fast-reply-prefix nil)
 (defvar lyskom-sv-filter-get-prefix nil)
+(defvar lyskom-sv-change-prefix nil)
+(defvar lyskom-sv-review-prefix nil)
 
 (if lyskom-sv-mode-map
     nil
@@ -2301,14 +2307,30 @@ teckenkodning.
   (define-key lyskom-sv-mode-map (kbd "s") 'lyskom-sv-S-prefix)
   (define-key lyskom-sv-mode-map (kbd "r") 'lyskom-sv-fast-reply-prefix)
   (define-key lyskom-sv-mode-map (kbd "v") 'lyskom-sv-who-prefix)
-  (define-key lyskom-sv-mode-map (lyskom-keys ') 'lyskom-sv-change-prefix)
-  (define-key lyskom-sv-mode-map (lyskom-keys ') 'lyskom-sv-change-prefix)
-  (define-key lyskom-sv-mode-map (lyskom-keys ') 'lyskom-sv-review-prefix)
-  (define-key lyskom-sv-mode-map (lyskom-keys ') 'lyskom-sv-review-prefix)
-  (define-key lyskom-sv-mode-map [] 'lyskom-sv-change-prefix)
-  (define-key lyskom-sv-mode-map [] 'lyskom-sv-change-prefix)
-  (define-key lyskom-sv-mode-map [] 'lyskom-sv-review-prefix)
-  (define-key lyskom-sv-mode-map [] 'lyskom-sv-review-prefix)
+
+  (lyskom-try-define-key lyskom-sv-mode-map (kbd "")    'lyskom-sv-change-prefix)
+  (lyskom-try-define-key lyskom-sv-mode-map (kbd "{")    'lyskom-sv-change-prefix)
+  (lyskom-try-define-key lyskom-sv-mode-map (kbd "[")    'lyskom-sv-change-prefix)
+  (lyskom-try-define-key lyskom-sv-mode-map [adiaeresis] 'lyskom-sv-change-prefix)
+  (lyskom-try-define-key lyskom-sv-mode-map [Adiaeresis] 'lyskom-sv-change-prefix)
+  (lyskom-try-define-key lyskom-sv-mode-map [228]        'lyskom-sv-change-prefix)
+  (lyskom-try-define-key lyskom-sv-mode-map [196]        'lyskom-sv-change-prefix)
+  (lyskom-try-define-key lyskom-sv-mode-map [2276]       'lyskom-sv-change-prefix)
+  (lyskom-try-define-key lyskom-sv-mode-map [2244]       'lyskom-sv-change-prefix)
+  (lyskom-try-define-key lyskom-sv-mode-map [3908]       'lyskom-sv-change-prefix)
+  (lyskom-try-define-key lyskom-sv-mode-map [3940]       'lyskom-sv-change-prefix)
+
+  (lyskom-try-define-key lyskom-sv-mode-map (kbd "") 'lyskom-sv-review-prefix)
+  (lyskom-try-define-key lyskom-sv-mode-map (kbd "}") 'lyskom-sv-review-prefix)
+  (lyskom-try-define-key lyskom-sv-mode-map (kbd "]") 'lyskom-sv-review-prefix)
+  (lyskom-try-define-key lyskom-sv-mode-map [aring]     'lyskom-sv-review-prefix)
+  (lyskom-try-define-key lyskom-sv-mode-map [Aring]     'lyskom-sv-review-prefix)
+  (lyskom-try-define-key lyskom-sv-mode-map [229]     'lyskom-sv-review-prefix)
+  (lyskom-try-define-key lyskom-sv-mode-map [197]     'lyskom-sv-review-prefix)
+  (lyskom-try-define-key lyskom-sv-mode-map [2277]    'lyskom-sv-review-prefix)
+  (lyskom-try-define-key lyskom-sv-mode-map [2245]    'lyskom-sv-review-prefix)
+  (lyskom-try-define-key lyskom-sv-mode-map [3909]    'lyskom-sv-review-prefix)
+  (lyskom-try-define-key lyskom-sv-mode-map [3941]    'lyskom-sv-review-prefix)
 
   (define-key lyskom-sv-mode-map (kbd "M-m") 'kom-toggle-mark-as-read-prefix)
 
@@ -2324,12 +2346,6 @@ teckenkodning.
   (define-key lyskom-sv-mode-map (kbd "C-i")   'kom-next-link)
   (define-key lyskom-sv-mode-map (kbd "M-C-i") 'kom-previous-link)
 
-  (define-key lyskom-sv-mode-map (kbd "{") 'lyskom-sv-change-prefix) ; krullar
-  (define-key lyskom-sv-mode-map (kbd "[") 'lyskom-sv-change-prefix)
-  (define-key lyskom-sv-mode-map (kbd "}") 'lyskom-sv-review-prefix)
-  (define-key lyskom-sv-mode-map (kbd "]") 'lyskom-sv-review-prefix)
-
-
   ;;(define-key lyskom-sv-mode-map "vi" 'vilka)
   
   ;; These should be first in order to be last in the menu of alternatives.
@@ -2370,12 +2386,19 @@ teckenkodning.
   (define-key lyskom-sv-mode-map (kbd "l p") 'kom-list-persons)
   (define-key lyskom-sv-mode-map (kbd "l r") 'kom-list-re)
   (define-key lyskom-sv-mode-map (kbd "l s") 'kom-membership)
-  (define-key lyskom-sv-list-prefix (lyskom-keys ') 'kom-list-summary)
-  (define-key lyskom-sv-list-prefix (lyskom-keys ') 'kom-list-summary)
-  (define-key lyskom-sv-list-prefix [] 'kom-list-summary)
-  (define-key lyskom-sv-list-prefix [] 'kom-list-summary)
-  (define-key lyskom-sv-mode-map (kbd "l {") 'kom-list-summary)
-  (define-key lyskom-sv-mode-map (kbd "l [") 'kom-list-summary)
+
+  (lyskom-try-define-key lyskom-sv-list-prefix (kbd "") 'kom-list-summary)
+  (lyskom-try-define-key lyskom-sv-list-prefix (kbd "{") 'kom-list-summary)
+  (lyskom-try-define-key lyskom-sv-list-prefix (kbd "[") 'kom-list-summary)
+  (lyskom-try-define-key lyskom-sv-list-prefix [adiaeresis]     'kom-list-summary)
+  (lyskom-try-define-key lyskom-sv-list-prefix [Adiaeresis]     'kom-list-summary)
+  (lyskom-try-define-key lyskom-sv-list-prefix [228]     'kom-list-summary)
+  (lyskom-try-define-key lyskom-sv-list-prefix [196]     'kom-list-summary)
+  (lyskom-try-define-key lyskom-sv-list-prefix [2276]    'kom-list-summary)
+  (lyskom-try-define-key lyskom-sv-list-prefix [2244]    'kom-list-summary)
+  (lyskom-try-define-key lyskom-sv-list-prefix [3908]    'kom-list-summary)
+  (lyskom-try-define-key lyskom-sv-list-prefix [3940]    'kom-list-summary)
+
   (define-key lyskom-sv-mode-map (kbd "l f") 'kom-list-filters)
   (define-key lyskom-sv-mode-map (kbd "m")   'kom-add-self)
   (define-key lyskom-sv-mode-map (kbd "M")   'kom-mark-text)
@@ -2394,12 +2417,19 @@ teckenkodning.
   (define-key lyskom-sv-mode-map (kbd "f s") 'kom-get-abuse)
   (define-key lyskom-sv-mode-map (kbd "f t") 'kom-move-text)
   (define-key lyskom-sv-mode-map (kbd "f T") 'kom-move-text-tree)
-  (define-key lyskom-sv-filter-get-prefix (lyskom-keys ') 'kom-filter-subject)
-  (define-key lyskom-sv-filter-get-prefix (lyskom-keys ') 'kom-filter-subject)
-  (define-key lyskom-sv-filter-get-prefix [] 'kom-filter-subject)
-  (define-key lyskom-sv-filter-get-prefix [] 'kom-filter-subject)
-  (define-key lyskom-sv-mode-map (kbd "f {") 'kom-filter-subject)
-  (define-key lyskom-sv-mode-map (kbd "f [") 'kom-filter-subject)
+
+  (lyskom-try-define-key lyskom-sv-filter-get-prefix (kbd "")    'kom-filter-subject)
+  (lyskom-try-define-key lyskom-sv-filter-get-prefix (kbd "{")    'kom-filter-subject)
+  (lyskom-try-define-key lyskom-sv-filter-get-prefix (kbd "[")    'kom-filter-subject)
+  (lyskom-try-define-key lyskom-sv-filter-get-prefix [adiaeresis] 'kom-filter-subject)
+  (lyskom-try-define-key lyskom-sv-filter-get-prefix [Adiaeresis] 'kom-filter-subject)
+  (lyskom-try-define-key lyskom-sv-filter-get-prefix [228]        'kom-filter-subject)
+  (lyskom-try-define-key lyskom-sv-filter-get-prefix [196]        'kom-filter-subject)
+  (lyskom-try-define-key lyskom-sv-filter-get-prefix [2276]       'kom-filter-subject)
+  (lyskom-try-define-key lyskom-sv-filter-get-prefix [2244]       'kom-filter-subject)
+  (lyskom-try-define-key lyskom-sv-filter-get-prefix [3908]       'kom-filter-subject)
+  (lyskom-try-define-key lyskom-sv-filter-get-prefix [3940]       'kom-filter-subject)
+
   (define-key lyskom-sv-mode-map (kbd "f f") 'kom-filter-author)
   (define-key lyskom-sv-mode-map (kbd "f i") 'kom-filter-text)
   (define-key lyskom-sv-mode-map (kbd "f m") 'kom-filter-recipient)
@@ -2409,56 +2439,62 @@ teckenkodning.
   (define-key lyskom-sv-mode-map (kbd "v v") 'kom-who-is-on-and-friend)
   (define-key lyskom-sv-mode-map (kbd "J")   'kom-who-am-i)
   (define-key lyskom-sv-mode-map (kbd "V")   'kom-busy-wait)
-  (define-key lyskom-sv-mode-map (kbd "{ p") 'kom-change-presentation)
-  (define-key lyskom-sv-mode-map (kbd "{ q") 'kom-change-conf-faq)
-  (define-key lyskom-sv-mode-map (kbd "{ f") 'kom-filter-edit)
-  (define-key lyskom-sv-mode-map (kbd "{ m") 'kom-change-auto-reply)
-  (define-key lyskom-sv-mode-map (kbd "} SPC") 'kom-view)
-  (define-key lyskom-sv-mode-map (kbd "} 0") 'kom-initial-digit-view)
-  (define-key lyskom-sv-mode-map (kbd "} 1") 'kom-initial-digit-view)
-  (define-key lyskom-sv-mode-map (kbd "} 2") 'kom-initial-digit-view)
-  (define-key lyskom-sv-mode-map (kbd "} 3") 'kom-initial-digit-view)
-  (define-key lyskom-sv-mode-map (kbd "} 4") 'kom-initial-digit-view)
-  (define-key lyskom-sv-mode-map (kbd "} 5") 'kom-initial-digit-view)
-  (define-key lyskom-sv-mode-map (kbd "} 6") 'kom-initial-digit-view)
-  (define-key lyskom-sv-mode-map (kbd "} 7") 'kom-initial-digit-view)
-  (define-key lyskom-sv-mode-map (kbd "} 8") 'kom-initial-digit-view)
-  (define-key lyskom-sv-mode-map (kbd "} 9") 'kom-initial-digit-view)
-  (define-key lyskom-sv-mode-map (kbd "} k") 'kom-view-commented-text)
-  (define-key lyskom-sv-mode-map (kbd "} K") 'kom-view-previous-commented-text)
-  (define-key lyskom-sv-mode-map (kbd "} a ?") 'lyskom-help)
-  (define-key lyskom-sv-mode-map (kbd "} a k") 'kom-review-comments)
-  (define-key lyskom-sv-mode-map (kbd "} a r") 'kom-review-tree)
-  (define-key lyskom-sv-mode-map (kbd "} h") 'kom-review-clear)
-  (define-key lyskom-sv-mode-map (kbd "} i") 'kom-review-last-normally-read)
-  (define-key lyskom-sv-mode-map (kbd "} n") 'kom-review-next)
-  (define-key lyskom-sv-mode-map (kbd "} o") 'kom-review-noconversion)
-  (define-key lyskom-sv-mode-map (kbd "} r") 'kom-find-root)
-  (define-key lyskom-sv-mode-map (kbd "} u") 'kom-find-root)
-  (define-key lyskom-sv-mode-map (kbd "} s") 'kom-review-by-to)
-  (define-key lyskom-sv-mode-map (kbd "} y") 'kom-review-more)
-  (define-key lyskom-sv-mode-map (kbd "} A") 'kom-review-all)
-  (define-key lyskom-sv-mode-map (kbd "} f") 'kom-review-first)
-  (define-key lyskom-sv-mode-map (kbd "} l") 'kom-review-stack)
-  (define-key lyskom-sv-mode-map (kbd "} p") 'kom-review-presentation)
-  (define-key lyskom-sv-mode-map (kbd "} t") 'kom-find-root-review)
-  (define-key lyskom-sv-mode-map (kbd "} m") 'kom-review-marked-texts)
-  (define-key lyskom-sv-mode-map (kbd "} q") 'kom-review-faq)
-  (define-key lyskom-sv-mode-map (kbd "} Q") 'kom-review-server-faq)
-  (define-key lyskom-sv-mode-map (kbd "} a m") 'kom-review-all-marked-texts)
-  (define-key lyskom-sv-mode-map (kbd "} a SPC") 'kom-review-all)
-  (define-key lyskom-sv-mode-map (kbd "} b") 'kom-review-mail-headers)
+  (define-key lyskom-sv-change-prefix (kbd "p") 'kom-change-presentation)
+  (define-key lyskom-sv-change-prefix (kbd "q") 'kom-change-conf-faq)
+  (define-key lyskom-sv-change-prefix (kbd "f") 'kom-filter-edit)
+  (define-key lyskom-sv-change-prefix (kbd "m") 'kom-change-auto-reply)
+  (define-key lyskom-sv-review-prefix (kbd "SPC") 'kom-view)
+  (define-key lyskom-sv-review-prefix (kbd "0") 'kom-initial-digit-view)
+  (define-key lyskom-sv-review-prefix (kbd "1") 'kom-initial-digit-view)
+  (define-key lyskom-sv-review-prefix (kbd "2") 'kom-initial-digit-view)
+  (define-key lyskom-sv-review-prefix (kbd "3") 'kom-initial-digit-view)
+  (define-key lyskom-sv-review-prefix (kbd "4") 'kom-initial-digit-view)
+  (define-key lyskom-sv-review-prefix (kbd "5") 'kom-initial-digit-view)
+  (define-key lyskom-sv-review-prefix (kbd "6") 'kom-initial-digit-view)
+  (define-key lyskom-sv-review-prefix (kbd "7") 'kom-initial-digit-view)
+  (define-key lyskom-sv-review-prefix (kbd "8") 'kom-initial-digit-view)
+  (define-key lyskom-sv-review-prefix (kbd "9") 'kom-initial-digit-view)
+  (define-key lyskom-sv-review-prefix (kbd "k") 'kom-view-commented-text)
+  (define-key lyskom-sv-review-prefix (kbd "K") 'kom-view-previous-commented-text)
+  (define-key lyskom-sv-review-prefix (kbd "a ?") 'lyskom-help)
+  (define-key lyskom-sv-review-prefix (kbd "a k") 'kom-review-comments)
+  (define-key lyskom-sv-review-prefix (kbd "a r") 'kom-review-tree)
+  (define-key lyskom-sv-review-prefix (kbd "h") 'kom-review-clear)
+  (define-key lyskom-sv-review-prefix (kbd "i") 'kom-review-last-normally-read)
+  (define-key lyskom-sv-review-prefix (kbd "n") 'kom-review-next)
+  (define-key lyskom-sv-review-prefix (kbd "o") 'kom-review-noconversion)
+  (define-key lyskom-sv-review-prefix (kbd "r") 'kom-find-root)
+  (define-key lyskom-sv-review-prefix (kbd "u") 'kom-find-root)
+  (define-key lyskom-sv-review-prefix (kbd "s") 'kom-review-by-to)
+  (define-key lyskom-sv-review-prefix (kbd "y") 'kom-review-more)
+  (define-key lyskom-sv-review-prefix (kbd "A") 'kom-review-all)
+  (define-key lyskom-sv-review-prefix (kbd "f") 'kom-review-first)
+  (define-key lyskom-sv-review-prefix (kbd "l") 'kom-review-stack)
+  (define-key lyskom-sv-review-prefix (kbd "p") 'kom-review-presentation)
+  (define-key lyskom-sv-review-prefix (kbd "t") 'kom-find-root-review)
+  (define-key lyskom-sv-review-prefix (kbd "m") 'kom-review-marked-texts)
+  (define-key lyskom-sv-review-prefix (kbd "q") 'kom-review-faq)
+  (define-key lyskom-sv-review-prefix (kbd "Q") 'kom-review-server-faq)
+  (define-key lyskom-sv-review-prefix (kbd "a m") 'kom-review-all-marked-texts)
+  (define-key lyskom-sv-review-prefix (kbd "a SPC") 'kom-review-all)
+  (define-key lyskom-sv-review-prefix (kbd "b") 'kom-review-mail-headers)
   (define-key lyskom-sv-mode-map (kbd "B")   'kom-review-backward)
   (define-key lyskom-sv-mode-map (kbd "s m") 'kom-status-conf)
   (define-key lyskom-sv-mode-map (kbd "s p") 'kom-status-person)
   (define-key lyskom-sv-mode-map (kbd "s s") 'kom-status-session)
   (define-key lyskom-sv-mode-map (kbd "s k") 'kom-status-server)
-  (define-key lyskom-sv-S-prefix (lyskom-keys ') 'kom-send-message)
-  (define-key lyskom-sv-S-prefix (lyskom-keys ') 'kom-send-message)
-  (define-key lyskom-sv-S-prefix [] 'kom-send-message)
-  (define-key lyskom-sv-S-prefix [] 'kom-send-message)
-  (define-key lyskom-sv-mode-map (kbd "s {") 'kom-send-message)
-  (define-key lyskom-sv-mode-map (kbd "s [") 'kom-send-message)
+
+  (lyskom-try-define-key lyskom-sv-S-prefix (kbd "")    'kom-send-message)
+  (lyskom-try-define-key lyskom-sv-S-prefix (kbd "{")    'kom-send-message)
+  (lyskom-try-define-key lyskom-sv-S-prefix (kbd "[")    'kom-send-message)
+  (lyskom-try-define-key lyskom-sv-S-prefix [adiaeresis] 'kom-send-message)
+  (lyskom-try-define-key lyskom-sv-S-prefix [Adiaeresis] 'kom-send-message)
+  (lyskom-try-define-key lyskom-sv-S-prefix [228]        'kom-send-message)
+  (lyskom-try-define-key lyskom-sv-S-prefix [196]        'kom-send-message)
+  (lyskom-try-define-key lyskom-sv-S-prefix [2276]       'kom-send-message)
+  (lyskom-try-define-key lyskom-sv-S-prefix [2244]       'kom-send-message)
+  (lyskom-try-define-key lyskom-sv-S-prefix [3908]       'kom-send-message)
+  (lyskom-try-define-key lyskom-sv-S-prefix [3940]       'kom-send-message)
 
   (define-key lyskom-sv-mode-map (kbd "r a") 'kom-fast-reply)
   (define-key lyskom-sv-mode-map (kbd "r r") 'kom-fast-reply)
@@ -2797,6 +2833,9 @@ teckenkodning.
     (url-transform-regexp . "Frn (regexp):")
     (url-transform-newtext . " Till:")
 
+    (default-namedays . "Namnsdagar fr aktuellt sprk")
+    (specific-namedays . "Specifik namnlngd:")
+
     ;;
     ;; Misc doc strings
     ;;
@@ -3465,9 +3504,10 @@ i servern. Annars sparas det i din .emacs.")
   att anvndas istllet.")
 
     (kom-show-namedays-doc . "\
-  Pslaget innebr att dagens namn visas nr man ser tiden. Antagligen s
-  kommer detta att ersttas av ett nytt kommando i ngon kommande version
-  av elispklienten, men det var visst ngon som ville ha det, s ...")
+  Pslaget innebr att dagens namn visas nr man ser tiden. Det gr att
+  vlja att se namnsdagarna frn namnsdagslngden som hr till det sprk
+  man fr nrvarande anvnder eller att anvnda en specifik lista med
+  namn.")
 
     (kom-show-week-number-doc . "\
   Se tiden visar veckonummer om detta r pslaget. Annars visas inte 

src/vars.el.in

@@ -197,7 +197,9 @@ The cdrs on the list may be either of:
   )
 
 (def-kom-var kom-url-transformation-rules 
-  '(("http://[^/]*aftonbladet\\.se/.*" . "\\&."))
+  '(
+    ("^http://[^/]*aftonbladet\\.se/.*/story/.*html?$" . "\\&.")
+    )
   "*An alist specifying transformations to be applied to URLs.
 
 Elements in this list are of the form `(REGEXP . NEWTEXT)'. Before an