Fixed bug 1064 and some other minor stuff.

Detailed changes:
> 2003-07-02  David Byers  <byers@lysator.liu.se>
>
> 	Removed unused variables:
> 	* commands1.el (lyskom-get-marked-texts): Removed variable
> 	mark-list.
>
> 	* commands2.el (kom-leave-all-conferences): Removed variable
> 	unsubscribed.
>
> 	* lyskom-rest.el (lyskom-format-x-kom/user-area): Removed variable
> 	tmpbuf.
>
> 	* lyskom-buttons.el (lyskom-generate-button): Removed variable
> 	persno.
>
> 	Fixed empty lines in nameday display:
> 	* names.el (lyskom-nameday-2): Say so when there are no namedays
> 	(we more or less have to when showing names from more than one
> 	list, and it ain't bad
>
> 	Fixed bug 1064:
> 	* lyskom-buttons.el (kom-button-click): Handle null position
> 	properly.
>
> 2003-07-01  David Byers  <byers@lysator.liu.se>
>
> 	* commands1.el (lyskom-write-text): Handle prefix args correctly
> 	(so C-u i works).
>

src/ChangeLog

+2003-07-02  David Byers  <byers@lysator.liu.se>
+
+	Removed unused variables:
+	* commands1.el (lyskom-get-marked-texts): Removed variable
+	mark-list.
+
+	* commands2.el (kom-leave-all-conferences): Removed variable
+	unsubscribed.
+
+	* lyskom-rest.el (lyskom-format-x-kom/user-area): Removed variable
+	tmpbuf.
+
+	* lyskom-buttons.el (lyskom-generate-button): Removed variable
+	persno.
+
+	Fixed empty lines in nameday display:
+	* names.el (lyskom-nameday-2): Say so when there are no namedays
+	(we more or less have to when showing names from more than one
+	list, and it ain't bad 
+
+	Fixed bug 1064:
+	* lyskom-buttons.el (kom-button-click): Handle null position
+	properly.
+
+2003-07-01  David Byers  <byers@lysator.liu.se>
+
+	* commands1.el (lyskom-write-text): Handle prefix args correctly
+	(so C-u i works).
+
 2003-06-04  David Byers  <byers@lysator.liu.se>
 
 	Fix bug 1054:

src/commands1.el

@@ -1814,13 +1814,13 @@ recipients are handled."
   "Start writing a new text."
   (when default
     (setq default (uconf-stat->name (blocking-do 'get-uconf-stat default))))
-  (let* ((tono (or arg
-                   (lyskom-read-conf-no
-                    (lyskom-get-string prompt)
-                    '(pers conf) 
-                    nil
-                    (and default (cons default 0))
-                    t)))
+  (let* ((tono (if (and arg lyskom-current-conf (not (zerop lyskom-current-conf)))
+                   lyskom-current-conf
+                 (lyskom-read-conf-no (lyskom-get-string prompt)
+                                      '(pers conf) 
+                                      nil
+                                      (and default (cons default 0))
+                                      t)))
          (conf-stat (blocking-do 'get-conf-stat tono)))
     (cache-del-conf-stat tono)
     (if (if (zerop (conf-stat->msg-of-day conf-stat))
@@ -2475,8 +2475,7 @@ If MARK-NO is nil, review all marked texts."
 
 (defun lyskom-get-marked-texts (mark-no)
   "Return a list of all texts marked with MARK-NO."
-  (let ((mark-list (cache-get-marked-texts))
-	(text-list nil))
+  (let ((text-list nil))
     (lyskom-traverse mark (cache-get-marked-texts)
       (if (and mark
                (or (null mark-no)

src/commands2.el

@@ -3239,8 +3239,7 @@ that this command could take a very long time to complete."
     (while confs
       (let* ((conf (car confs))
              (conf-stat (blocking-do 'get-conf-stat conf))
-             (conf-type (conf-stat->conf-type conf-stat))
-             (unsubscribe nil))
+             (conf-type (conf-stat->conf-type conf-stat)))
         (setq lyskom-last-viewed (point-max))
         (lyskom-format-insert 'unsubscribe-to-2
                               conf-stat

src/english-strings.el

@@ -1885,6 +1885,7 @@ environment to one that uses \"%#2s\" to encode text.
 
     (has-nameday-1 . "Today's name is %#1s%#2?b%[ (%#2s)%]%[%].")
     (has-nameday-2 . "Today's names are %#1s and %#2s%#3?b%[ (%#3s)%]%[%].")
+    (no-nameday . "No nameday today%#2?b%[ (%#2s)%]%[%]")
 
     (invalid-date-entry . "Invalid date")
     (number-out-of-range . "Invalid number")

src/lyskom-buttons.el

@@ -124,9 +124,9 @@ this-command-keys."
                    (and parent (widget-get parent ':href))
                    (and widget (widget-get widget 'href))
                    (and parent (widget-get parent 'href))))
-         (type  (get-text-property pos 'lyskom-button-type))
-         (data  (assq type lyskom-button-actions))
-         (hint (get-text-property pos 'lyskom-button-hint))
+         (type  (and pos (get-text-property pos 'lyskom-button-type)))
+         (data  (and type (assq type lyskom-button-actions)))
+         (hint (and pos (get-text-property pos 'lyskom-button-hint)))
          (act  (or (and kom-use-button-hints hint)
                    (and data (elt data 2)))))
     (cond (href (require 'w3)
@@ -474,13 +474,7 @@ means don't set the lyskom-button property if non-nil. that means
 kom-next- and -previous-link won't notice the button"
   (setq lyskom-dummy-variable-to-fool-the-byte-compiler
         (car menu-title))		; produce error if menu-title not cons
-  (let* ((persno (cond ((boundp 'lyskom-pers-no) lyskom-pers-no)
-                       ((and (boundp 'lyskom-buffer) lyskom-buffer)
-                        (save-excursion
-                          (set-buffer lyskom-buffer)
-                          lyskom-pers-no))
-                       (t -1)))
-         (numarg (cond ((numberp arg) arg)
+  (let* ((numarg (cond ((numberp arg) arg)
                        ((stringp arg) (string-to-number arg))
                        ((lyskom-conf-stat-p arg) (conf-stat->conf-no arg))
                        ((lyskom-uconf-stat-p arg) (uconf-stat->conf-no arg))

src/lyskom-rest.el

@@ -2225,8 +2225,7 @@ in lyskom-messages."
 
 (defun lyskom-format-x-kom/user-area (text text-stat)
 ;  (condition-case nil
-      (let ((tmpbuf (lyskom-generate-new-buffer "lyskom-user-area"))
-            (result "")
+      (let ((result "")
             (user-area (lyskom-split-user-area text)))
         (while user-area
           (let ((key (car (car user-area)))

src/names.el

@@ -86,7 +86,8 @@ DATA is nameday data"
          (mlist (cdr (assq (time->mon time) alist)))
          (dlist (cdr (assq (time->mday time) mlist))))
     (if data
-        (cond ((null dlist) nil)
+        (cond ((null dlist) 
+               (lyskom-format 'no-nameday nil (and show-list-name (nameday-data->name data))))
               ((eq 1 (length dlist))
                (lyskom-format 'has-nameday-1 
                               (car dlist)

src/swedish-strings.el

@@ -1919,6 +1919,7 @@ teckenkodning.
 
     (has-nameday-1 . "%#1s har namnsdag i dag%#2?b%[ (%#2s)%]%[%].")
     (has-nameday-2 . "%#1s och %#2s har namnsdag i dag%#3?b%[ (%#3s)%]%[%].")
+    (no-nameday . "Ingen namnsdag i dag%#2?b%[ (%#2s)%]%[%]")
 
     (invalid-date-entry . "Ogiltigt datum")
     (number-out-of-range . "Otilltet tal")