Mercurial > hg > xemacs

comparison pers-init.el @ 21:7b2c4ed36302

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
for new maritain
author ht
date Mon, 30 Nov 2020 16:00:15 +0000
parents cc9c7bc8194a
children 0e5b39d2f8bb
comparison
equal deleted inserted replaced
20:06827fc8ae79 21:7b2c4ed36302
22 (setq rmail-spool-directory (file-name-as-directory 22 (setq rmail-spool-directory (file-name-as-directory
23 (concat rmail-spool-directory 23 (concat rmail-spool-directory
24 "ht-mail"))))) 24 "ht-mail")))))
25 25
26 ;; sending mail on the road 26 ;; sending mail on the road
27 (setq send-mail-function 'smtpmail-send-it) 27 ;; [moved to mail-from-m.el, which is required by gnus-init.el
28 (setq message-send-mail-function 'smtpmail-send-it)
29 (setq smtpmail-default-smtp-server "localhost")
30 (setq smtpmail-smtp-service "smtp")
31 (setq smtpmail-local-domain "markuptechnology.com")
32 (setq smtpmail-debug-info t)
33 (load "smtpmail" nil t)
34 (setq smtpmail-code-conv-from nil)
35 28
36 ;; don't know why this is necessary 29 ;; don't know why this is necessary
37 (site-caseq ((edin) 30 (site-caseq ((edin)
38 (setq rmail-primary-inbox-list 31 (setq rmail-primary-inbox-list
39 (list (concat rmail-spool-directory "ht"))))) 32 (list (concat rmail-spool-directory "ht")))))
181 (interactive)(insert (win32-get-clipboard-data))) 174 (interactive)(insert (win32-get-clipboard-data)))
182 (global-set-key 175 (global-set-key
183 "\C-x\C-y" 'win32-get-clipboard-data-cmd))) 176 "\C-x\C-y" 'win32-get-clipboard-data-cmd)))
184 ;; gnus 177 ;; gnus
185 ; (setq mail-signature t) 178 ; (setq mail-signature t)
186 (load "gnus-init" nil t)
187 179
188 ;; loading gnus postponed to e.g. mail-from-delphix, q.v. 180 ;; loading gnus postponed to e.g. mail-from-delphix, q.v.
189 181
190 ; (require 'gnus-min) 182 ; (require 'gnus-min)
191 )) 183 ))
184 (load "gnus-init" nil t)
192 185
193 ;; (require 'idle) 186 ;; (require 'idle)
194 ;; (idle-save 15) 187 ;; (idle-save 15)
195 188
196 (if (string-match "Lucid" emacs-version) 189 (if (string-match "Lucid" emacs-version)
414 (ph (device-pixel-height (selected-device)))) 407 (ph (device-pixel-height (selected-device))))
415 (cond ((= pw 2048) 408 (cond ((= pw 2048)
416 ;; we're on a _really_ big external monitor 409 ;; we're on a _really_ big external monitor
417 (set-frame-pixel-size (selected-frame) 900 1050) 410 (set-frame-pixel-size (selected-frame) 900 1050)
418 (set-frame-position (selected-frame) 0 0)) 411 (set-frame-position (selected-frame) 0 0))
412 ((= pw 1920)
413 ;; we're on a 27" curved external monitor
414 (set-frame-pixel-size (selected-frame) 720 980)
415 (set-frame-position (selected-frame) -8 2))
419 ((= pw 1680) 416 ((= pw 1680)
420 ;; we're on a big external monitor 417 ;; we're on a big external monitor
421 (font-menu-set-font nil nil 10) 418 (font-menu-set-font nil nil 10)
422 (set-frame-pixel-size (selected-frame) 900 1000) 419 (set-frame-pixel-size (selected-frame) 900 1000)
423 (set-frame-position (selected-frame) -3 -20)) 420 (set-frame-position (selected-frame) -3 -20))