lisp/calendar/diary-lib.el

177 It is the standard syntax table used in Fundamental mode, but with the
441         (if (eq major-mode default-major-mode)
442             (diary-mode)
445           ;; take effect. Unconditionally calling (diary-mode)
449           (if (eq major-mode 'diary-mode)
559   (kill-local-variable 'mode-line-format))
611     (calendar-set-mode-line (format "Diary for %s" hol-string))
619           (calendar-set-mode-line date-string)
661                  (when (eq major-mode default-major-mode) (diary-mode))
798       (fancy-diary-display-mode)
799       (calendar-set-mode-line date-string)
806     (calendar-set-mode-line "Diary Entries")
816 visible lines of the diary buffer, add a heading line composed from the mode
834                     (if (not (stringp mode-line-format))
836                       (string-match "^-*\\([^-].*[^-]\\)-*$" mode-line-format)
837                       (match-string 1 mode-line-format)))
870       (when (eq major-mode default-major-mode) (diary-mode))
874 (defcustom diary-mail-addr
875   (if (boundp 'user-mail-address) user-mail-address "")
876   "Email address that `diary-mail-entries' will send email to."
881 (defcustom diary-mail-days 7
882   "Default number of days for `diary-mail-entries' to check."
888 (defun diary-mail-entries (&optional ndays)
889   "Send a mail message showing diary entries for next NDAYS days.
890 If no prefix argument is given, NDAYS is set to `diary-mail-days'.
891 Mail is sent to the address specified by `diary-mail-addr'.
893 You can call `diary-mail-entries' every night using an at/cron job.
901 -eval \"(setq diary-mail-days 3 \\
904              diary-mail-addr \\\"user@host.name\\\" )\" \\
905 -l diary-lib -f diary-mail-entries
913   (if (string-equal diary-mail-addr "")
914       (error "You must set `diary-mail-addr' to use this command")
916       (diary-list-entries (calendar-current-date) (or ndays diary-mail-days)))
917     (compose-mail diary-mail-addr
924     (call-interactively (get mail-user-agent 'sendfunc))))
973         (when (eq major-mode default-major-mode) (diary-mode))
1748   (when (eq major-mode default-major-mode) (diary-mode))
1855 (defvar diary-mode-map
1856   (let ((map (make-sparse-keymap)))
1857     (define-key map "\C-c\C-s" 'diary-show-all-entries)
1858     (define-key map "\C-c\C-q" 'quit-window)
1859     map)
1860   "Keymap for `diary-mode'.")
1863 (define-derived-mode diary-mode fundamental-mode "Diary"
1864   "Major mode for editing the diary file."
1942 (define-derived-mode fancy-diary-display-mode fundamental-mode
1944   "Major mode used while displaying diary entries using Fancy Display."
2049   "Forms to highlight in `diary-mode'.")
2052 ;; Import Outlook-format appointments from mail messages in Gnus or
2145 	       ((eq major-mode 'rmail-mode)
2147 	       ((memq major-mode '(gnus-summary-mode gnus-article-mode))
2149 	       (t (error "Don't know how to snarf in `%s'" major-mode)))))
2194     (let ((subject (mail-fetch-field "subject"))