(setq display-time-24hr-format t)
(display-time)
(column-number-mode 1)
-(trap
- (if window-system
- (let ((view-diary-entries-initially t))
- (calendar))))
+(trap (if window-system (calendar)))
;;;--------------------------------------------------------------------------
;;; MailCrypt.