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

Smärre fixar

parent d5975031
No preview for this file type
......@@ -33,6 +33,9 @@ Buggar
text 1306568
kom-review-tree på en text med fotnoter visar fotnoterna på en
gång. Är det en bug?
Allmänna förbättringar
Visa fotnoter på ett bättre sätt.
......
......@@ -804,54 +804,44 @@ lyskom-parse-success, lyskom-parse-error and lyskom-parse-async calls
functions and variables that are connected with the lyskom-buffer."
(let ((lyskom-buffer (current-buffer))
(match-data (match-data)))
;; The old code /davidk
;; (if (and mode-line-process
;; (not (equal mode-line-process '(": %s"))))
;; (progn
;; (setq mode-line-process '(": %s"))
;; (if (and (not (lyskom-is-in-minibuffer))
;; kom-presence-messages)
;; (message ""))
;; (set-buffer-modified-p (buffer-modified-p))
;; (sit-for 0)))
;; Was the server saving?
(if lyskom-is-saving
(progn
(setq mode-line-process (lyskom-get-string
(if lyskom-executing-command
'mode-line-working
'mode-line-waiting))
lyskom-is-saving nil)
(if (and (not (lyskom-is-in-minibuffer))
kom-presence-messages)
(message ""))))
(setq mode-line-process (lyskom-get-string
(if lyskom-executing-command
'mode-line-working
'mode-line-waiting))
lyskom-is-saving nil)
;; Removed check for kom-presence-messages
(if (and (not (lyskom-is-in-minibuffer)))
(message ""))))
(lyskom-save-excursion
(set-buffer lyskom-unparsed-buffer)
(if (and (> lyskom-string-bytes-missing 0)
(< (length output) lyskom-string-bytes-missing))
(setq lyskom-string-bytes-missing
(- lyskom-string-bytes-missing (length output)))
(setq lyskom-string-bytes-missing 0)
(while (not (zerop (1- (point-max)))) ;Parse while replies.
(let* ((lyskom-parse-pos 1)
(key (lyskom-parse-nonwhite-char)))
(condition-case err
(let ((inhibit-quit nil))
(cond
((eq key ?=) ;The call succeeded.
(lyskom-parse-success (lyskom-parse-num) lyskom-buffer))
((eq key ?%) ;The call was not successful.
(lyskom-parse-error (lyskom-parse-num) lyskom-buffer))
(set-buffer lyskom-unparsed-buffer)
(if (and (> lyskom-string-bytes-missing 0)
(< (length output) lyskom-string-bytes-missing))
(setq lyskom-string-bytes-missing
(- lyskom-string-bytes-missing (length output)))
(setq lyskom-string-bytes-missing 0)
(while (not (zerop (1- (point-max)))) ;Parse while replies.
(let* ((lyskom-parse-pos 1)
(key (lyskom-parse-nonwhite-char)))
(condition-case err
(let ((inhibit-quit nil))
(cond
((eq key ?=) ;The call succeeded.
(lyskom-parse-success (lyskom-parse-num) lyskom-buffer))
((eq key ?%) ;The call was not successful.
(lyskom-parse-error (lyskom-parse-num) lyskom-buffer))
((eq key ?:) ;An asynchronous message.
(lyskom-parse-async (lyskom-parse-num) lyskom-buffer)))
(delete-region (point-min) lyskom-parse-pos))
;; One reply is now parsed.
(lyskom-protocol-error
(delete-region (point-min) (1+ lyskom-parse-pos))
(signal 'lyskom-protocol-error err)))
(goto-char (point-min))
(while (looking-at "[ \t\n\r]")
(delete-char 1))
))))
(delete-region (point-min) lyskom-parse-pos))
;; One reply is now parsed.
(lyskom-protocol-error
(delete-region (point-min) (1+ lyskom-parse-pos))
(signal 'lyskom-protocol-error err)))
(goto-char (point-min))
(while (looking-at "[ \t\n\r]")
(delete-char 1))
))))
(store-match-data match-data)))
......@@ -505,9 +505,9 @@ text is shown and a REVIEW list is built to shown the other ones."
(text-stat->misc-info-list text-stat)))
(misc-infos (and misc-info-list
(append (lyskom-misc-infos-from-list
'COMM-IN misc-info-list)
'FOOTN-IN misc-info-list)
(lyskom-misc-infos-from-list
'FOOTN-IN misc-info-list))))
'COMM-IN misc-info-list))))
(text-nos (and misc-infos
(mapcar
(function
......
......@@ -103,7 +103,8 @@ lyskom-reading-list to read the comments to this."
;; All recipients and other header lines.
(if (eq filter 'dontshow)
nil
(lyskom-mark-as-read
(blocking-do 'get-text-stat text-no))
(lyskom-traverse misc
(text-stat->misc-info-list text-stat)
(let ((type (misc-info->type misc)))
......
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