Minor lug fixes

src/vars.el.in

@@ -359,7 +359,8 @@ he gets a y-or-n-p question for all recipients.")
 (defvar kom-max-buffer-size nil
   "*If non-nil, ensure that buffers won't grow any larger than this")
 
-(defvar lyskom-print-complex-dates t
+(defvar lyskom-print-complex-dates (and (>= emacs-minor-version 28)
+					(>= emacs-major-version 19))
   "*If non-nil, print today and yesterday using a special format.")
 
 (defvar kom-server-aliases

src/view-text.el

@@ -323,9 +323,10 @@ recipients to it that the user is a member in."
 
 (defun lyskom-return-date-and-time (time &optional fmt)
   "Return date and time as a string. Arg: TIME."
-  (let* ((diff (lyskom-calculate-day-diff time)))
+  (let* ((diff (and lyskom-print-complex-dates
+		    (lyskom-calculate-day-diff time))))
     (lyskom-format
-     (if (and diff lyskom-print-complex-dates)
+     (if diff
          (intern (concat (symbol-name diff) "-time-format-string"))
        (or fmt 'time-yyyy-mm-dd-hh-mm))
      (+ (time->year time) 1900)