Commit f1eabad8 authored by David Byers's avatar David Byers
Browse files

Fixed bugs 986, 1038 and 1039.

Detailed changes:
> 2003-05-17  David Byers  <byers@lysator.liu.se>
>
> 	Fix bug 986:
> 	* lyskom-buttons.el (lyskom-view-url-netscape): Support
> 	kom-netscape-variant.
>
> 	* vars.el.in (kom-netscape-variant): New variable.
>
> 	Fix bug 1038:
> 	* swedish-strings.el,english-strings.el: Fixed problem with
> 	accepting-recommendation (patch from Magnus Bark).
>
> 	Fix bug 1039:
> 	* commands1.el (lyskom-private-answer): Misc-list for personal
> 	replys to our own texts were wrong.
>
> 2003-05-10  David Byers  <byers@lysator.liu.se>
>
> 	Illegal argument stringp nil when listing missing texts:
> 	* commands2.el (lyskom-do-list-summary): Fix problem when listing
> 	texts that don't exist.
>
parent dc208a5c
2003-05-17 David Byers <byers@lysator.liu.se>
Fix bug 986:
* lyskom-buttons.el (lyskom-view-url-netscape): Support
kom-netscape-variant.
* vars.el.in (kom-netscape-variant): New variable.
Fix bug 1038:
* swedish-strings.el,english-strings.el: Fixed problem with
accepting-recommendation (patch from Magnus Bark).
Fix bug 1039:
* commands1.el (lyskom-private-answer): Misc-list for personal
replys to our own texts were wrong.
2003-05-10 David Byers <byers@lysator.liu.se>
Illegal argument stringp nil when listing missing texts:
* commands2.el (lyskom-do-list-summary): Fix problem when listing
texts that don't exist.
2003-05-09 David Byers <byers@lysator.liu.se>
Fix bug 868:
......
......@@ -1351,8 +1351,8 @@ This command accepts text number prefix arguments (see
(lyskom-edit-text lyskom-proc
(if (= (text-stat->author text-stat) lyskom-pers-no)
(lyskom-create-misc-list
'RECPT
(text-stat->author text-stat))
'COMM-TO (text-stat->text-no text-stat)
'RECPT (text-stat->author text-stat))
(lyskom-create-misc-list
'COMM-TO (text-stat->text-no text-stat)
'RECPT (text-stat->author text-stat)
......
......@@ -1116,8 +1116,8 @@ on one line."
(t (blocking-do-multiple ((text-stat (get-text-stat text-no))
(text (get-text text-no)))
(let* ((txt (text->decoded-text-mass text text-stat))
(eos (string-match (regexp-quote "\n") txt))
(subject (substring txt 0 eos)))
(eos (and txt (string-match (regexp-quote "\n") txt)))
(subject (and eos (substring txt 0 eos))))
(when (or (not unique)
(and (not (lyskom-string-member subject unique-subjects))
(setq unique-subjects (cons subject unique-subjects))))
......
......@@ -1782,7 +1782,7 @@ Number of sessions: %21#1d (total)
(recommending-conf . "Recommending %#1M%#2?b%[ (priority %#2d)%]%[%]%#3?b%[ %#3s%]%[%]...")
(has-recommended-conf . "%#1P has recommended conference %#2M. Do you want to become a member?\n")
(accept-recommendation . "Join conference %#1M? ")
(accepting-recommendataion . "Joining recommended conference %#1M...")
(accepting-recommendataion . "Joining recommended conference %#2M...")
(redirect-for-whom . "Redirect comments for whom: ")
(redirect-to-which-conf . "Redirect comments to: ")
......@@ -2967,6 +2967,9 @@ be saved in the server. Otherwise it will be saved in your .emacs.")
(audio-cues-when . "Issue audio cues when:\n")
(automatic-replies . "Automatic replies\n")
(new-window-netscape . "Open URLs in a new window")
(new-tab-netscape . "Open URLs in a new tab")
(default-netscape . "Open URLs wherever")
(audio-cues-doc . "\
The following group of settings controls how LysKOM issues audio cues in
......@@ -3961,11 +3964,15 @@ be saved in the server. Otherwise it will be saved in your .emacs.")
This setting controls display of conference names. For each choice
it is possible to select a face. The value must be either a face or
the name of a variable that contains a face.")
(kom-netscape-variant-doc . "\
This setting controls where the client opens URLs. How well the
settings work depends on which variant of Netscape or Mozilla you
are using, and even on which operating system you are on.")
;;
;; Tags for variables
;;
(kom-ansaphone-replies-tag . "Automatic replies")
(kom-bury-buffers-tag . "Bury buffers when changing LysKOM:")
......@@ -4166,6 +4173,7 @@ be saved in the server. Otherwise it will be saved in your .emacs.")
(kom-lynx-xterm-command-tag . "Command to run lynx in xterm:")
(kom-show-sync-messages-tag . "Show database-saving message:")
(kom-highlight-conferences-tag . "Display of names::")
(kom-netscape-variant-tag . "Where Netscape/Mozilla opens URLs:")
)
)
......
......@@ -1114,7 +1114,13 @@ that, starts a new one."
(let* ((url-string (if (memq window-system '(win32 mswindows w32))
(list url)
(list "-remote"
(format "openUrl(%s)" url))))
(format
(cond ((eq kom-netscape-variant 'new-window)
"openUrl(%s, new-window)")
((eq kom-netscape-variant 'new-tab)
"openUrl(%s, new-tab)")
(t "openUrl(%s)"))
url))))
(proc (apply 'start-process "netscape"
nil
......
......@@ -263,6 +263,7 @@
[kom-windows-browser-command]
[kom-mosaic-command]
[kom-netscape-command]
[kom-netscape-variant]
[kom-galeon-command]
[kom-lynx-terminal]
[kom-lynx-xterm-command]
......@@ -846,6 +847,9 @@ customize buffer but do not save them to the server."
(kom-async-text-body-face (face t))
(kom-async-dashed-lines-face (face t))
(kom-show-sync-messages (toggle (yes no)))
(kom-netscape-variant (choice ((const (default-netscape nil))
(const (new-window-netscape new-window))
(const (new-tab-netscape new-tab)))))
))
(defvar lyskom-widget-functions
......
......@@ -1818,7 +1818,7 @@ Antal sessioner: %21#1d (totalt)
(recommending-conf . "Rekommenderar %#1M%#2?b%[ (prioritet %#2d)%]%[%]%#3?b%[ %#3s%]%[%]...")
(has-recommended-conf . "%#1P har rekommenderat mte %#2M. Vill du bli medlem?\n")
(accept-recommendation . "G med i %#1M? ")
(accepting-recommendataion . "G med i rekommenderat mte %#1M...")
(accepting-recommendataion . "G med i rekommenderat mte %#2M...")
(redirect-for-whom . "Dirigera om kommentarer fr: ")
(redirect-to-which-conf . "Dirigera om kommentarer till: ")
......@@ -3078,6 +3078,10 @@ i servern. Annars sparas det i din .emacs.")
(audio-cues . "Ljudsignaler\n")
(audio-cues-when . "Ge ljudsignal:\n")
(automatic-replies . "Automatiskt svar\n")
(new-window-netscape . "ppna URLer i nytt fnster")
(new-tab-netscape . "ppna URLer i ny tab")
(default-netscape . "ppna URLer dr de rkar hamna")
(audio-cues-doc . "\
Efterfljande instllningar bestmmer vilken ljudsignal LysKOM skall ge
......@@ -4082,13 +4086,16 @@ i servern. Annars sparas det i din .emacs.")
(kom-highlight-conferences-doc . "\
Denna instllning styr hur mtesnamn frglggs. Fr varje val
kan ett utseende anges. Utseendena r namn p faces i Emacs.")
(kom-netscape-variant-doc . "\
Denna instllning styr var elispklienten frsker ppna URLer. Hur
bra de olika valen fungerar beror p vilken variant av Netscape eller
Mozilla man anvnder, och till och med vilket operativsystem man
anvnder.")
;;
;; Tags for variables
;;
(kom-ansaphone-replies-tag . "Detaljerade automatsvar")
(kom-bury-buffers-tag . "Begrav buffertar nr man byter LysKOM:")
......@@ -4288,6 +4295,7 @@ i servern. Annars sparas det i din .emacs.")
(kom-lynx-xterm-command-tag . "Kommando fr Lynx i xterm:")
(kom-show-sync-messages-tag . "Visa databasen-sparar-meddelanden:")
(kom-highlight-conferences-tag . "Frglggning av namn:")
(kom-netscape-variant-tag . "Var ska Netscape/Mozilla ppna URLer:")
)
)
......
......@@ -1957,6 +1957,19 @@ host:0\"' is not. Instead, the latter should be `\(\"netscape\" \"-d\"
\"host:0\"\)'"
server)
(def-kom-var kom-netscape-variant nil
"**Netscape-specific options.
When set to `nil', open URLs in whatever window Netscape or Mozilla
chooses. Usually an old window is recycled. When set to `new-window',
open URLs in a new window. When set to `new-tab', open URLs in a new
tab. These options may not work with all versions of Netscape or
Mozilla, or on all operating systems.
Values other than those listed above are reserved for future use."
server)
(def-kom-var kom-galeon-command "galeon"
"**Command used to run to start Galeon.
......
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