# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1176878589 0
# Node ID e262afb73c6e26968228557e9b3b9e9c289f8c06
# Parent  c15c7123019d21cb22d2433f841d83d8b673c979
Improve previous fix by only setting header-line-format in diary-mode.

diff -r c15c7123019d -r e262afb73c6e lisp/calendar/diary-lib.el
--- a/lisp/calendar/diary-lib.el	Wed Apr 18 04:06:37 2007 +0000
+++ b/lisp/calendar/diary-lib.el	Wed Apr 18 06:43:09 2007 +0000
@@ -446,8 +446,9 @@
           ;; clobbers file local variables.
           ;; http://lists.gnu.org/archive/html/emacs-pretest-bug/2007-03/msg00363.html
           ;; http://lists.gnu.org/archive/html/emacs-pretest-bug/2007-04/msg00404.html
-          (setq header-line-format (and diary-header-line-flag
-                                        diary-header-line-format)))
+          (if (eq major-mode 'diary-mode)
+              (setq header-line-format (and diary-header-line-flag
+                                            diary-header-line-format))))
         ;; d-s-p is passed to the diary display function.
         (let ((diary-saved-point (point)))
           (save-excursion