home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / lucid / bug-lucid-emacs / text0074.txt < prev    next >
Encoding:
Text File  |  1993-07-04  |  3.9 KB  |  112 lines
  1. Howdy, I'm using a Sparc IPX color machine.  I've got colors assigned to bold,
  2. italic, etc fonts in my .Xdefaults file.
  3.  
  4. When I fire up VM, mail headers are not getting colorized as expected (it
  5. works in gnus, info, etc..). They show up black and white with underlining
  6. instead of colorized. By doing diff and experimenting with things that changed
  7. I've found that the "(require 'highlight-headers)" in vm-lucid.el appears to
  8. be the culprit. That is, if I comment out this line, I get colorized headers.
  9.  
  10. I'm wondering if this is a real bug, or whether I'm misusing something. I have
  11. code in my .emacs to cause a new window to be created for each folder I visit.
  12. I've noticed that while I now get colorized headers for the inbox window, any
  13. additional windows created by visiting folders are back to b&w. Visiting
  14. behaved this way with 19.4 also.
  15.  
  16. I've included excerpts of my .emacs below. Any help or clarification would be
  17. appreciated.
  18.  
  19. Jerry G. DeLapp -- ACL System Scientist -- (505) 665-4531 <jgd@lanl.gov>
  20. Computing beyond the Bleeding Edge -- The Advanced Computing Laboratory
  21.  
  22. (autoload 'vm "vm" "" t)
  23. (setq allow-deletion-of-last-visible-screen t)
  24. (setq text-mode-hook 'turn-on-auto-fill)
  25.  
  26. ;;; Mail handlers should use supercite
  27.  
  28. (autoload 'sc-cite-original "sc" "Supercite 2.2" t)
  29. (defun my-sc-overload-hook ()
  30.   (require 'sc-oloads)
  31.   (sc-overload-functions))
  32. (defun use-supercite ()
  33.   "Setup standard mail/news readers to use Supercite 2.2"
  34.   (setq mail-yank-hooks 'sc-cite-original) ; for all but MH-E
  35.   (setq mh-yank-hooks   'sc-cite-original) ; for MH-E only
  36.   (setq news-reply-mode-hook 'my-sc-overload-hook)
  37.   (setq mail-setup-hook      'my-sc-overload-hook))
  38. (use-supercite)
  39. (setq sc-citation-leader "")
  40.  
  41. (setq-default mail-self-blind t)
  42. (setq mail-default-reply-to "Jerry G. DeLapp <jgd@acl.lanl.gov>")
  43.  
  44. ;; Random Variables
  45. (setq auto-save-default t)
  46. (setq make-backup-files 1)
  47. (setq version-control t)
  48. (put 'eval-expression 'disabled nil)
  49. (setq explicit-shell-file-name "/bin/csh")
  50. (setq indent-tabs-mode nil)
  51. (setq tab-stop-list
  52.       '(4 8 12 16 20 24 28 32 36 40 44 48 52 56 60 64 68 72 76 80
  53.       84 88 92 96 100 104 108 112 116 120))
  54.  
  55. ;;;; View Mail Setup, the rest is in ~/.vm
  56.  
  57. (setq version19 (string-equal (substring (emacs-version) 0 12) "GNU Emacs 19"))
  58.  
  59. (defun vm-in-screen (&rest args) nil
  60.   (interactive)
  61.   (let ((screen-defaults '((width . 80) (height . 55)))
  62.     (screens (screen-list))
  63.     (vmloaded nil)
  64.     screen match-screen sname)
  65.     (if (featurep 'vm)
  66.     nil
  67.       (require 'vm)
  68.       (setq vmloaded t))
  69.     (setq sname (file-name-nondirectory (or (car args) vm-primary-inbox)))
  70.     (while (setq screen (car screens))
  71.       (setq screens (cdr screens))
  72.       (if (string-equal (screen-name screen) sname)
  73.       (setq match-screen screen)))
  74.     (setq screen (if match-screen
  75.              match-screen
  76.            (and screen-creation-func
  77.             (funcall screen-creation-func
  78.                  (cons (cons 'name sname)
  79.                        (append screen-defaults
  80.                            screen-default-alist))))))
  81.     (if screen (raise-screen (select-screen screen)))
  82.     (if vmloaded
  83.     (progn
  84.       (fset 'vm-orig (symbol-function 'vm))
  85.       (fset 'vm 'vm-in-screen)
  86.       (fset 'vm-quit-orig (symbol-function 'vm-quit))
  87.       (fset 'vm-quit '(lambda (&optional no-change) "" (interactive)
  88.                 (funcall 'vm-quit-orig no-change)
  89.                 (delete-screen (selected-screen))))
  90.       (put 'vm-mode 'screen-name 'VM)
  91.       (put 'VM 'instance-limit 1)
  92.       (put 'VM 'screen-defaults screen-defaults)))
  93.     (apply 'vm-orig args)))
  94.  
  95. (if version19
  96.     (let ()
  97.        ;; Blow away the default autoload definition for vm
  98.       (fset 'vm 'vm-in-screen)
  99.       (setq appmenu '( ["VM" vm t]
  100.                ["Dired" dired t]
  101.                ["Gnus" gnus t]
  102.                ["Shell" shell t]
  103.                ["Checkout File" rcs-co-file t]
  104.                    ["Checkout Buffer" rcs-co-buffer t]
  105.                ["Checkin File" rcs-ci-file t]
  106.                ["Checkin Buffer" rcs-ci-buffer t]
  107.                ))
  108.       (add-menu nil "Apps" appmenu)
  109.       (setq inhibit-startup-message t)))
  110.  
  111.  
  112.