The lyskom-trim-buffer-hook is run "on" the whole buffer when it is killed.

src/ChangeLog

+2000-09-02  Ulrik Haugen  <qha@lysator.liu.se>
+
+	* startup.el (lyskom-mode): kill-buffer-hook runs the
+	lyskom-trim-buffer-hook on the whole buffer.
+
 2000-09-02  David Byers  <davby@sen2.ida.liu.se>
 
 	* Release av 0.46

src/lyskom-rest.el

@@ -3587,8 +3587,8 @@ One parameter - the prompt string."
         `(kom-show-unread-in-frame-title
           (lyskom-session-has-unreads 
            (" ("
-            ((lyskom-session-has-unreads ,(lyskom-maybe-recode-string (lyskom-get-string 'frame-title-unread) 'iso-8859-1 t))
-             (lyskom-session-has-unread-letters ,(lyskom-maybe-recode-string (lyskom-get-string 'frame-title-letters) 'iso-8859-1 t)))
+            ((lyskom-session-has-unreads ,(lyskom-maybe-recode-string (lyskom-get-string 'frame-title-unread) 'iso-8859-1))
+             (lyskom-session-has-unread-letters ,(lyskom-maybe-recode-string (lyskom-get-string 'frame-title-letters) 'iso-8859-1)))
             ")"))))
 
   (add-hook 'kill-buffer-hook 'lyskom-remove-buffer-from-lists)

src/startup.el

@@ -815,6 +815,12 @@ to see, set of call."
   (use-local-map lyskom-mode-map)
   (lyskom-set-menus 'lyskom-mode lyskom-mode-map)
   (run-hooks 'lyskom-mode-hook)
+  (add-hook 'kill-buffer-hook '(lambda ()
+				 (let ((lyskom-trim-buffer-delete-to
+					(point-max)))
+				   (run-hooks 'lyskom-trim-buffer-hook)))
+	    nil t)
+
   (buffer-disable-undo (current-buffer))
   (setq buffer-read-only t))