Commit aeeb0749 authored by David Kågedal's avatar David Kågedal
Browse files

(lyskom-handle-as-personal-message): Använd rätt värde på

kom-pop-personal-messages och se till att meddelande-bufferten
scrollar till slutet.
parent 87dd889c
......@@ -399,17 +399,22 @@ converted, before insertion."
(eq 0 (string-match "^Remote-command: [0-9]+ [0-9]+\n" string))
(eq 0 (string-match "^Auto-reply:\n" string))))
nil
(lyskom-save-excursion
(cond
((eq kom-show-personal-messages-in-buffer t)
(lyskom-insert-before-prompt string))
((null kom-show-personal-messages-in-buffer))
(t
(set-buffer (get-buffer-create kom-show-personal-messages-in-buffer))
(goto-char (point-max))
(lyskom-insert string )))
(if kom-pop-personal-messages
(display-buffer (current-buffer))))))
(let ((pop kom-pop-personal-messages))
(lyskom-save-excursion
(cond
((eq kom-show-personal-messages-in-buffer t)
(lyskom-insert-before-prompt string)
(if pop (display-buffer (current-buffer))))
((null kom-show-personal-messages-in-buffer))
(t
(set-buffer (get-buffer-create kom-show-personal-messages-in-buffer))
(goto-char (point-max))
(lyskom-insert string )
(if pop
(save-selected-window
(select-window (display-buffer (current-buffer)))
(goto-char (point-max))
(recenter -1)))))))))
;;; ================================================================
......
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