   (if (member item lst)
       lst
       (nconc lst (list item))))
-
-;(defun list-meetings2 ()
-;  (interactive)
-;  (labels ((addmeeting (head meetings) 
-;                 (if (and (>= (length head) 4) (string-equal (substring head -4 nil ) ".txt"))
-;                         (unique-append head meetings)
-;                         meetings))))
-;  
 
 
 (defun list-meetings ()

(define-key 'log-keymap "d" 'log_did_something)

; turn off word complete in minibuffer completion. Allows spaces
(define-key minibuffer-local-completion-map 'space nil)

;;; emacs compatibility
(eval-and-compile ;; Protect against declare-function undefined in XEmacs


(defun truncon ()
  (interactive)
  (Setq truncate-lines t)
)

(defun truncoff ()
