org-mime

org-mime

[Rainer M. Krug]

[-- Attachment #1: Type: text/plain, Size: 502 bytes --]


-- 
Rainer M. Krug, PhD (Conservation Ecology, SUN), MSc (Conservation Biology, UCT), Dipl. Phys. (Germany)

Centre of Excellence for Invasion Biology
Natural Sciences Building
Office Suite 2039
Stellenbosch University
Main Campus, Merriman Avenue
Stellenbosch
South Africa

Tel:        +33 - (0)9 53 10 27 44
Cell:       +27 - (0)8 39 47 90 42
Fax (SA):   +27 - (0)8 65 16 27 82
Fax (D) :   +49 - (0)3 21 21 25 22 44
Fax (FR):   +33 - (0)9 58 10 27 44
email:      Rainer@krugs.de

Skype:      RMkrug

[-- Attachment #2.1: Type: text/plain, Size: 178 bytes --]

* Problem
When using org-mime and a signature, the signature is above the htmlized org document and not below.
This is illustrated here.
My mail client is gnus.

Cheers,

Rainer

[-- Attachment #2.2: Type: text/html, Size: 325 bytes --]

[-- Attachment #3: Type: text/plain, Size: 201 bytes --]

_______________________________________________
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode

Re: org-mime

[Eric Schulte]

Hi Rainer,

Thanks for the bug report, I've just pushed up a fix for this issue.

-- Eric

"Rainer M. Krug" <r.m.krug@gmail.com> writes:

org-mime

[Joseph Vidal-Rosset]

[-- Attachment #1: Type: text/plain, Size: 432 bytes --]

#+OPTIONS: latex:t

Hello,

I just made a clean installation of org packages and contrib in order to
be able to convert latex equations in gnus. But I meet the following
problem that I am going to describe: 

Generating a png image seems to work via M-x org-preview-latex-fragment

\begin{equation}
((A \to B) \to A) \to A
\end{equation}

But with M-x org-mime-htmlize, the png image is not loaded. Why? Your
help is welcome. 

-- 

[-- Attachment #2.1: Type: text/html, Size: 496 bytes --]

Re: org-mime

[Eric Schulte]

Joseph Vidal-Rosset <joseph.vidal.rosset@gmail.com> writes:

>    Hello,
>
>    I just made a clean installation of org packages and contrib in order
>    to
>    be able to convert latex equations in gnus. But I meet the following
>    problem that I am going to describe:
>
>    Generating a png image seems to work via M-x org-preview-latex-fragment
>    \begin{equation} ((A \to B) \to A) \to A \end{equation}
>
>    But with M-x org-mime-htmlize, the png image is not loaded. Why? Your
>    help is welcome.
>
>    -

A while back Org-mode switched its method of exporting latex equations
to HTML.  Equations used to be exported as png images, however they are
now exported as markup which may then be processed on the fly by
client-side javascript.  Most mail readers do not allow javascript in
html email, and I doubt that the required javascript headers are
included in the mail html mime part.

I don't know if it is currently possible to do the javascript
pre-processing as part of the HTML export, but that would probably be
the best solution in this case.

Cheers,

-- 
Eric Schulte
http://cs.unm.edu/~eschulte

Re: org-mime

[Joseph Vidal-Rosset]

[-- Attachment #1: Type: text/plain, Size: 746 bytes --]

2013/5/13 Eric Schulte <schulte.eric@gmail.com>

> A while back Org-mode switched its method of exporting latex equations
> to HTML.  Equations used to be exported as png images, however they are
> now exported as markup which may then be processed on the fly by
> client-side javascript.  Most mail readers do not allow javascript in
> html email, and I doubt that the required javascript headers are
> included in the mail html mime part.
>

Thanks Eric for your precise reply. Does it means that there is a sort of
bug in Thunderbrid or that another configuration of Thunderbird could solve
this problem? In this case, I consider that I can write succesfully LaTeX
equations in Gnus or Wanderlust and that is a good news !

Thanks again.

Jo.

[-- Attachment #2: Type: text/html, Size: 1235 bytes --]

Re: org-mime

[Uwe Brauer]

>> "Eric" == Eric Schulte <schulte.eric@gmail.com> writes:

   > Joseph Vidal-Rosset <joseph.vidal.rosset@gmail.com> writes:
   >> 
   >> -

   > A while back Org-mode switched its method of exporting latex equations
   > to HTML.  Equations used to be exported as png images, however they are
   > now exported as markup which may then be processed on the fly by
   > client-side javascript.  Most mail readers do not allow javascript in
   > html email, and I doubt that the required javascript headers are
   > included in the mail html mime part.

   > I don't know if it is currently possible to do the javascript
   > pre-processing as part of the HTML export, but that would probably be
   > the best solution in this case.

Couldn't the old functionality (converting to png) be reactivated, at
least optionally?? For me this change are bad news, since the feature
(to export LaTeX math to something visible) is very important to me and
even if this approach may have disadvantages, it seems to me more
universal than the  javascript business.


Uwe Brauer 

Re: org-mime

[Eric Schulte]

Uwe Brauer <oub@mat.ucm.es> writes:

>>> "Eric" == Eric Schulte <schulte.eric@gmail.com> writes:
>
>    > Joseph Vidal-Rosset <joseph.vidal.rosset@gmail.com> writes:
>    >> 
>    >> -
>
>    > A while back Org-mode switched its method of exporting latex equations
>    > to HTML.  Equations used to be exported as png images, however they are
>    > now exported as markup which may then be processed on the fly by
>    > client-side javascript.  Most mail readers do not allow javascript in
>    > html email, and I doubt that the required javascript headers are
>    > included in the mail html mime part.
>
>    > I don't know if it is currently possible to do the javascript
>    > pre-processing as part of the HTML export, but that would probably be
>    > the best solution in this case.
>
> Couldn't the old functionality (converting to png) be reactivated, at
> least optionally?? For me this change are bad news, since the feature
> (to export LaTeX math to something visible) is very important to me and
> even if this approach may have disadvantages, it seems to me more
> universal than the  javascript business.
>

Indeed the old latex->png functionality is still available, I just had
to update org-mime to work with the new exporter.  Export of latex to
attached png images should once again be working in the master branch of
the git repo.

Best,

>
>
> Uwe Brauer 
>
>

-- 
Eric Schulte
http://cs.unm.edu/~eschulte

Re: org-mime

[Joseph Vidal-Rosset]

[-- Attachment #1: Type: text/plain, Size: 2203 bytes --]

I thank you Eric and Uwe for your help. Many thanks also to all the
developers of emacs and org-mode.

In fact I just spent two days in configuring my emacs24 and gnus. (Eric, I
did not understand how worked your emacs24-starter-kit , which is a nice
tool indeed).

The last problem that I meet on my laptop is  an error message :
smtp-server not defined , and , until now, I do not find how to fix it :(
(if someone has a suggestion, thanks in advance).

My goal is to succeed to stay in emacs, for LaTeX as well as for emails,
but I have to work again. Every help on LaTeX and emails via org-mode will
be welcome.


Best,

Jo.



2013/5/15 Eric Schulte <schulte.eric@gmail.com>

> Uwe Brauer <oub@mat.ucm.es> writes:
>
> >>> "Eric" == Eric Schulte <schulte.eric@gmail.com> writes:
> >
> >    > Joseph Vidal-Rosset <joseph.vidal.rosset@gmail.com> writes:
> >    >>
> >    >> -
> >
> >    > A while back Org-mode switched its method of exporting latex
> equations
> >    > to HTML.  Equations used to be exported as png images, however they
> are
> >    > now exported as markup which may then be processed on the fly by
> >    > client-side javascript.  Most mail readers do not allow javascript
> in
> >    > html email, and I doubt that the required javascript headers are
> >    > included in the mail html mime part.
> >
> >    > I don't know if it is currently possible to do the javascript
> >    > pre-processing as part of the HTML export, but that would probably
> be
> >    > the best solution in this case.
> >
> > Couldn't the old functionality (converting to png) be reactivated, at
> > least optionally?? For me this change are bad news, since the feature
> > (to export LaTeX math to something visible) is very important to me and
> > even if this approach may have disadvantages, it seems to me more
> > universal than the  javascript business.
> >
>
> Indeed the old latex->png functionality is still available, I just had
> to update org-mime to work with the new exporter.  Export of latex to
> attached png images should once again be working in the master branch of
> the git repo.
>
> Best,
>
> >
> >
> > Uwe Brauer
> >
> >
>
> --
> Eric Schulte
> http://cs.unm.edu/~eschulte
>
>

[-- Attachment #2: Type: text/html, Size: 3369 bytes --]

Re: org-mime

[Feng Shu]

Joseph Vidal-Rosset <joseph.vidal.rosset@gmail.com> writes:

> I thank you Eric and Uwe for your help. Many thanks also to all the
> developers of emacs and org-mode. 
>
> In fact I just spent two days in configuring my emacs24 and gnus.
> (Eric, I did not understand how worked your emacs24-starter-kit ,
> which is a nice tool indeed). 
>
> The last problem that I meet on my laptop is an error message :
> smtp-server not defined , and , until now, I do not find how to fix it
> :(
> (if someone has a suggestion, thanks in advance). 
>
> My goal is to succeed to stay in emacs, for LaTeX as well as for
> emails, but I have to work again. Every help on LaTeX and emails via
> org-mode will be welcome. 

Your setting may be  same as  my emacs configure ,I use 
1. gnus + offlineimap + dovecot + gmail + org-contacts.el
2. org-mode + xelatex 

May be my configure can help you 

#+begin_src emacs-lisp
;;; eh-org.el --- Tumashu's org-mode configuation 

;; Copyright (c) 2012, Feng Shu

;; Author: Feng Shu <tumashu@gmail.com>
;; URL: https://github.com/tumashu/tumashu.github.com
;; Version: 0.0.2
;; Package-Requires: ((org "7.8.00"))
;; This file is not part of GNU Emacs.

;;; Commentary:

;;  这个文件是tumashu个人专用的emacs配置文件，emacs中文用户可以参考。

;;; License:

;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License
;; as published by the Free Software Foundation; either version 3
;; of the License, or (at your option) any later version.
;;
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.
;;
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING.  If not, write to the
;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301, USA.

;;; Code:

(require 'org)
(require 'ox-ascii)
(require 'ox-latex)
(require 'ox-beamer)
(require 'ox-html)
(require 'ox-deck)
(require 'ox-s5)
(require 'ox-rss)
(require 'ox-md)
(require 'ox-odt)
(require 'org-contacts)
(require 'org-mime)
(require 'org-bookmark)
(require 'org-protocol)
(require 'ob-R)

(setq org-export-backends
      '(ascii beamer html latex md odt deck rss s5))

(add-to-list 'auto-mode-alist '("\.\(org\|org_archive\)$" . org-mode))   
(setq org-log-done t)   
(setq org-startup-indented nil)
(setq org-confirm-babel-evaluate nil)

;; org-bable设置
; font-lock in src code blocks
(setq org-src-fontify-natively t)
(org-babel-do-load-languages
 'org-babel-load-languages
 '((R . t)
   (ditaa . t)
   (dot . t)
   (emacs-lisp . t)
   (gnuplot . t)
   (haskell . nil)
   (mscgen . t)
   (latex . t) 
   (ocaml . nil)
   (perl . t)
   (python . t)
   (ruby . nil)
   (screen . nil)
   (sh . t)
   (sql . nil)
   (sqlite . nil)))

;; org-babel hook
(add-hook 'org-babel-after-execute-hook 'org-display-inline-images)

;; use Cairo graphics device by default,which can get better graphics quality.
;; you shoule add require("Cairo") to you ~/.Rprofile
(setq org-babel-R-graphics-devices
  '((:bmp "bmp" "filename")
    (:jpg "jpeg" "filename")
    (:jpeg "jpeg" "filename")
    (:tikz "tikz" "file")
    (:tiff "tiff" "filename")
    (:png "CairoPNG" "filename")
    (:svg "CairoSVG" "file")
    (:pdf "CairoPDF" "file")
    (:ps "CairoPS" "file")
    (:postscript "postscript" "file")))

;;export
(setq org-default-language "zh-CN")

;; html
(setq org-html-coding-system 'utf-8)
(setq org-html-head-include-default-style nil)
(setq org-html-head-include-scripts nil)

;; latex
(setq org-latex-coding-system 'utf-8)
(setq org-latex-date-format "%Y-%m-%d")
(setq org-export-with-LaTeX-fragments 'imagemagick)
(setq org-latex-create-formula-image-program 'imagemagick)
(setq org-latex-pdf-process '("xelatex -interaction nonstopmode -output-directory %o %f" 
                                 "xelatex -interaction nonstopmode -output-directory %o %f" 
                                 "xelatex -interaction nonstopmode -output-directory %o %f"))


(add-to-list 'org-latex-classes
             '("ctexart"
               "\\documentclass{ctexart}"
               ("\\section{%s}" . "\\section*{%s}")
               ("\\subsection{%s}" . "\\subsection*{%s}")
               ("\\subsubsection{%s}" . "\\subsubsection*{%s}")
               ("\\paragraph{%s}" . "\\paragraph*{%s}")
               ("\\subparagraph{%s}" . "\\subparagraph*{%s}")))
(add-to-list 'org-latex-classes
             '("ctexrep"
               "\\documentclass{ctexrep}"
               ("\\part{%s}" . "\\part*{%s}")
               ("\\chapter{%s}" . "\\chapter*{%s}")
               ("\\section{%s}" . "\\section*{%s}")
               ("\\subsection{%s}" . "\\subsection*{%s}")
               ("\\subsubsection{%s}" . "\\subsubsection*{%s}")))
(add-to-list 'org-latex-classes
             '("ctexbook"
               "\\documentclass{ctexbook}"
               ("\\part{%s}" . "\\part*{%s}")
               ("\\chapter{%s}" . "\\chapter*{%s}")
               ("\\section{%s}" . "\\section*{%s}")
               ("\\subsection{%s}" . "\\subsection*{%s}")
               ("\\subsubsection{%s}" . "\\subsubsection*{%s}")))
(add-to-list 'org-latex-classes
             '("beamer"
               "\\documentclass{beamer}
               \\usepackage{ctex}"
               org-beamer-sectioning))

(setq  org-latex-packages-alist
       '("
\\setCJKmainfont[ItalicFont={AR PL UKai CN}]{AR PL UMing CN}% 文鼎宋体和楷书
\\setCJKsansfont{WenQuanYi Zen Hei}% 文泉驿的黑体
\\setCJKmonofont{WenQuanYi Zen Hei}
\\usepackage{tikz}
"))

;; latex公式预览

;; 设置默认缩放比例为1.2.
(setq org-format-latex-options
      (plist-put org-format-latex-options :scale 1.2))

(setq org-format-latex-header "\\documentclass{ctexart}
\\usepackage[usenames]{color}
\\usepackage{amsmath}
\\usepackage[mathscr]{eucal}
\\pagestyle{empty}             % do not remove
\[PACKAGES]
\[DEFAULT-PACKAGES]
% The settings below are copied from fullpage.sty
\\setlength{\\textwidth}{\\paperwidth}
\\addtolength{\\textwidth}{-3cm}
\\setlength{\\oddsidemargin}{1.5cm}
\\addtolength{\\oddsidemargin}{-2.54cm}
\\setlength{\\evensidemargin}{\\oddsidemargin}
\\setlength{\\textheight}{\\paperheight}
\\addtolength{\\textheight}{-\\headheight}
\\addtolength{\\textheight}{-\\headsep}
\\addtolength{\\textheight}{-\\footskip}
\\addtolength{\\textheight}{-3cm}
\\setlength{\\topmargin}{1.5cm}
\\addtolength{\\topmargin}{-2.54cm}")

;; org-mode global keybindings
(global-set-key "\C-cl" 'org-store-link)
(global-set-key "\C-cc" 'org-capture)
(global-set-key "\C-ca" 'org-agenda)
(global-set-key "\C-cb" 'org-iswitchb)

;;;###autoload(require 'eh-org)
(provide 'eh-org)

;; Local Variables:
;; coding: utf-8-unix
;; End:

;;; eh-org.el ends here

#+end_src

#+begin_src emacs-lisp
;;; eh-gnus.el --- Tumashu's gnus configuation file

;; Copyright (c) 2008-2009, Andy Stewart
;;               2011-2012, Feng Shu

;; Author: Andy Stewartf <lazycat.manatee@gmail.com>
;;         Feng Shu <tumashu@gmail.com>
;; URL: https://github.com/tumashu/tumashu.github.com
;; Version: 0.0.6
;; Keywords: gnus

;; This file is not part of GNU Emacs.

;;; Commentary:

;;  这个文件是tumashu个人专用的gnus配置文件，中文gnus用户可以参考。

;;; License:

;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License
;; as published by the Free Software Foundation; either version 3
;; of the License, or (at your option) any later version.
;;
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.
;;
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING.  If not, write to the
;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301, USA.

;;; Code:


;; require
(require 'gnus)
(require 'mm-encode)
(require 'mm-decode)
(require 'rfc2047)
(require 'nnir)
(require 'gnus-demon)
(require 'notifications)

;; 新闻组地址
;; 添加几个著名的新闻组地址，方便测试
(setq gnus-select-method
      '(nnimap "OfflineImap"
	       (nnimap-address "localhost")
	       (nnimap-stream shell)
               (nnimap-shell-program "/usr/lib/dovecot/imap -o mail_location=maildir:$HOME/Maildir")))

(add-to-list 'gnus-secondary-select-methods
               '(nntp "localhost"))

;; (setq gnus-select-method '(nnimap "gmail"
;; 				  (nnimap-address "imap.gmail.com")
;; 				  (nnimap-stream ssl)))

;; (add-to-list 'gnus-secondary-select-methods
;;               '(nntp "news.gmane.org"))
;; (add-to-list 'gnus-secondary-select-methods
;;               '(nntp "news.newsfan.net"))



;; 存储设置
(setq gnus-startup-file "~/Gnus/.newsrc")                  ;初始文件
(setq gnus-init-file "~/Gnus/.gnus")                       ;.gnus位置
(setq gnus-default-directory "~/Gnus/")                    ;默认目录
(setq gnus-home-directory "~/Gnus/")                       ;主目录
(setq gnus-dribble-directory "~/Gnus/")                    ;恢复目录
(setq gnus-directory "~/Gnus/News/")                       ;新闻组的存储目录
(setq gnus-article-save-directory "~/Gnus/News/")          ;文章保存目录
(setq gnus-kill-files-directory "~/Gnus/News/trash/")      ;文件删除目录
(setq gnus-agent-directory "~/Gnus/News/agent/")           ;代理目录
(setq gnus-cache-directory "~/Gnus/News/cache/")           ;缓存目录
(setq gnus-cache-active-file "~/Gnus/News/cache/active")   ;缓存激活文件
(setq message-directory "~/Gnus/Mail/")                    ;邮件的存储目录
(setq message-auto-save-directory "~/Gnus/Mail/drafts")    ;自动保存的目录
(setq mail-source-directory "~/Gnus/Mail/incoming")        ;邮件的源目录
(setq nnmail-message-id-cache-file "~/Gnus/.nnmail-cache") ;nnmail的消息ID缓存
(setq nnml-newsgroups-file "~/Gnus/Mail/newsgroup")        ;邮件新闻组解释文件
(setq nntp-marks-directory "~/Gnus/News/marks")            ;nntp组存储目录
(setq mml-default-directory "~/")                          ;附件的存储位置

;; 默认禁用nnfolder
(setq gnus-message-archive-group nil)
;; 发送信件程序设置
;; (setq sendmail-program "msmtp")                             ;设置发送程序
;; 当使用message-mode时的发信方式.
(setq message-send-mail-function 'message-send-mail-with-sendmail)
;; (setq message-send-mail-function 'message-send-mail-with-mailclient)

;; (setq message-sendmail-extra-arguments '("-a" "default"))
;; (setq message-sendmail-envelope-from 'header)

;; (defun eh-send-mail-with-msmtp ()
;;   (if (message-mail-p)
;;       (save-excursion
;; 	(let* ((from
;; 		(save-restriction
;; 		  (message-narrow-to-headers)
;; 		  (message-fetch-field "from")))
;; 	       (account
;; 		(cond
;; 		 ((string-match "tumashu@gmail.com" from) "tumashu@gmail.com"))))
;; 	  (setq message-sendmail-extra-arguments (list "-a" account))))))
;; (add-hook 'message-send-mail-hook 'eh-send-mail-with-msmtp)

;; 编码设置
;; gnus默认使用的编码。如果常与国外联系，设置为utf-8如果只在本国使用，设置为本地
;; 编码,比如gbk
(setq gnus-default-charset 'gbk)
;;根据我们选择的 method确定编码
(setq gnus-group-name-charset-method-alist
      '(((nntp "news.newsfan.net") . gbk)
        ((nntp "news.cn99.com") . gbk)))
;;根据组名确定组名采用的编码
(setq gnus-group-name-charset-group-alist
      '((".*" . gbk)))
;; 正则表达式匹配的组默认使用的编码。
(setq gnus-group-charset-alist
      '((".*" . gbk)))
;; 如果还有乱码，手动调整
(setq gnus-summary-show-article-charset-alist
      '((1 . gbk)
        (2 . utf-8)
        (3 . big5)
        (4 . utf-7)))
;; 邮件没有指定正确的MIME类型的时候的处理方式
(setq gnus-newsgroup-ignored-charsets
      '(unknown-8bit x-unknown x-gbk ))

;; gnus-posting-styles设置
;; 1. 发送编码设置.
;; 2. 用什么程序发送邮件.
(setq gnus-posting-styles
      '(("\(^INBOX\)\|\(\\[Gmail\\].*\)"
         ("X-Message-SMTP-Method" "sendmail"))
        (message-mail-p
         ("X-Message-SMTP-Method" "sendmail"))
        (".*"
         (signature "")
         (eval (setq mm-coding-system-priorities
                     '(iso-8859-1  utf-8  gb2312  gbk  utf-8 gb18030))))
        (".*newsfan.*"
         (eval (setq mm-coding-system-priorities
                     '(iso-8859-1   gb2312  gbk   gb18030  utf-8))))
        (".*cn99.*"
         (eval (setq mm-coding-system-priorities
                     '(iso-8859-1    gb2312    gbk    gb18030  utf-8))))))


;; 指定附件文件名和subject的编码方式
(defalias 'mail-header-encode-parameter 'rfc2047-encode-parameter)
(add-to-list 'rfc2047-charset-encoding-alist '(gbk . B))
(add-to-list 'rfc2047-charset-encoding-alist '(gb18030 . B))

;; 常规设置
(setq gnus-agent t)                                 ;开启agent
(setq read-mail-command 'gnus)                      ;使用gnus阅读邮件
(setq mail-user-agent 'gnus-user-agent)             ;使用gnus发送邮件
(setq gnus-inhibit-startup-message t)               ;关闭启动时的画面
(setq gnus-novice-user nil)                         ;关闭新手设置, 不进行确认
(setq gnus-expert-user t)                           ;不询问用户
(setq gnus-show-threads t)                          ;显示邮件线索
(setq gnus-interactive-exit t)                      ;退出时进行交互式询问
(setq gnus-use-dribble-file t)                      ;创建恢复文件
(setq gnus-always-read-dribble-file t)              ;读取恢复文件
(setq gnus-asynchronous t)                          ;异步操作
(setq gnus-large-newsgroup 2000)                    ;设置大容量的新闻组默认显示的大小
(setq gnus-read-active-file 'some)
(setq gnus-nov-is-evil nil)
(setq gnus-large-ephemeral-newsgroup nil)           ;和上面的变量一样, 只不过对于短暂的新闻组
(setq gnus-summary-ignore-duplicates t)             ;忽略具有相同ID的消息
(setq gnus-treat-fill-long-lines t)                 ;如果有很长的行, 不提示
(setq message-confirm-send t)                       ;防止误发邮件, 发邮件前需要确认
(setq message-kill-buffer-on-exit t)                ;设置发送邮件后删除buffer
(setq message-from-style 'angles)                   ;`From' 头的显示风格
(setq message-syntax-checks '((sender . disabled))) ;语法检查
(setq nnmail-expiry-wait 7)                         ;邮件自动删除的期限 (单位: 天)
(setq nnmairix-allowfast-default t)                 ;加快进入搜索结果的组
(setq gnus-use-correct-string-widths t)             ;使用正确的字体宽度
(setq gc-cons-threshold 3500000)                    ;加快gnus的速度
(setq gnus-use-cross-reference t)                   ;交叉索引
(setq gnus-summary-display-while-building 50)       ;在生成summary时,每50封显示一下
;; 进入summer模式时，禁止自动选择第一个article,
;; 这样设置主要是因为有些article下载速度极慢，
;; 会降低响应速度
(setq gnus-auto-select-first nil)
(setq gnus-auto-select-next nil)                  

;; 设置gnus启动时,组级别大于3的不自动更新。
;; 当你添加了许多速度慢的组时，比如rss,imap等，启动速度会相当慢。这时你
;; 可以把它们的组级别设置为大于3的值，这样启动时就不自动更新了。
;; 当你需要更新这些组的时候，使用 "4-g" "5-g" 等快捷键
(setq gnus-activate-level 3) 

;; 双窗口布局
(gnus-add-configuration '(article 
                          (horizontal 1.0 
                                      (summary 0.50 point)
                                      (article 1.0))))
;; 三窗口布局
;; (gnus-add-configuration
;;  '(article
;;    (horizontal 1.0
;; 	       (vertical 25
;; 			 (group 1.0))
;; 	       (vertical 1.0
;; 			 (summary 0.25 point)
;; 			 (article 1.0)))))
;; (gnus-add-configuration
;;  '(summary
;;    (horizontal 1.0
;; 	       (vertical 25
;; 			 (group 1.0))
;; 	       (vertical 1.0
;; 			 (summary 1.0 point)))))

;; 显示设置
(setq mm-inline-large-images t)                       ;显示内置图片
(add-to-list 'mm-attachment-override-types "image/*") ;附件显示图片

;; 概要显示设置
;; 设置summer缓冲区的显示格式
(setq gnus-extra-headers
      '(To From))
(setq nnmail-extra-headers gnus-extra-headers)
(setq gnus-summary-gather-subject-limit 'fuzzy) ;聚集题目用模糊算法
;; (setq gnus-summary-line-format (concat 
;;                                 "%4P "
;;                                 "%("
;;                                 "%U%R%z  "
;;                                 "%4&user-date;  "
;;                                 "%-12,12n  "
;;                                 "%B " 
;;                                 "%I "
;;                                 "%-50,50s "
;;                                 "%)"
;;                                 "\n"))

;; (setq gnus-summary-make-false-root 'dummy)
;; (setq gnus-summary-make-false-root-always nil)
;; (setq gnus-summary-dummy-line-format "    |->%-62,62S\n")

(setq gnus-summary-make-false-root 'adopt)
(setq gnus-summary-line-format (concat 
                                "%U%R |"
                                "%ua"
                                "%2{%ub%}"
                                "%uc"
                                "%B"
                                "%I"
                                "%2{%ud%}"
                                "%ue"
                                "\n"))

(copy-face 'default 'eh-gnus-face-2)
(set-face-foreground 'eh-gnus-face-2 "orange")
(setq gnus-face-2 'eh-gnus-face-2)

;; 显示箭头设置
(defun gnus-user-format-function-a (header)
   (let ((date (mail-header-date header)))
     (if (zerop gnus-tmp-level)
         "-> " "")))

;; 显示时间设置
(defun gnus-user-format-function-b (header)
   (let ((date (mail-header-date header)))
     (if (zerop gnus-tmp-level)
         "" (concat "     " (concat (gnus-user-date date) "  ")))))

;; 显示主题设置
(defun gnus-user-format-function-c (header)
  (let ((date (mail-header-date header))
        (subject (mail-header-subject header)))
    (if (zerop gnus-tmp-level)
        (concat subject
                " ("
                (gnus-user-date date)")") "")))

;; 提取From名字
(defun eh-mail-header-from-name (from)
  (cond
   ((string-match "<[^>]+> *$" from)
    (let ((beg (match-beginning 0)))
      (or (and (string-match "^\".+\"" from)
               (substring from 1 (1- (match-end 0))))
          (substring from 0 beg))))
   ((string-match "(.+)" from)
    (substring from
               (1+ (match-beginning 0)) (1- (match-end 0))))
   (t from)))

;; 显示发件人设置
(defun gnus-user-format-function-d (header)
  (let ((from (mail-header-from header)))
     (if (zerop gnus-tmp-level)
         "" (eh-mail-header-from-name from))))

;; 显示箭头设置
(defun gnus-user-format-function-e (header)
  (if (zerop gnus-tmp-level)
      "" "---->"))


;; 设置user-date变量，自定义日期时间的显示格式
;; (setq gnus-user-date-format-alist
;;       '(((gnus-seconds-today) . "今天%d号")
;;         ((+ (* 24 3600)    (gnus-seconds-today)) . "昨天%d号") 
;;         ((+ (* 2  24 3600) (gnus-seconds-today)) . "前天%d号")
;;         ((gnus-seconds-month) . "本月%d号")
;;         ((gnus-seconds-year)  . "%m月%d号")
;;         (t . "%y-%m-%d")))

(setq gnus-user-date-format-alist
      '(((gnus-seconds-today) . "%H:%M")
        ((+ (* 24 3600)    (gnus-seconds-today)) . "YD   ")
        ((- (gnus-seconds-month) (* 72 3600)) . "%dth ")
        ((- (gnus-seconds-month) (* 48 3600)) . "%drd ")
        ((- (gnus-seconds-month) (* 24 3600)) . "%dnd ")
        ((gnus-seconds-month) . "%dst ")
        ((gnus-seconds-year)  . "%m-%d")
        (t . "%Y ")))

(setq gnus-thread-indent-level 0)
;; 线程的可视化外观, `%B'
(setq gnus-summary-same-subject "")
(setq gnus-sum-thread-tree-indent "    ")
(setq gnus-sum-thread-tree-single-indent "")
(setq gnus-sum-thread-tree-root "")
(setq gnus-sum-thread-tree-false-root "")
(setq gnus-sum-thread-tree-vertical "|")
(setq gnus-sum-thread-tree-leaf-with-other "|----")
(setq gnus-sum-thread-tree-single-leaf " `----")


;; 时间显示
(add-hook 'gnus-article-prepare-hook 'gnus-article-date-local) ;将邮件的发出时间转换为本地时间
(add-hook 'gnus-select-group-hook 'gnus-group-set-timestamp)   ;跟踪组的时间轴
(add-hook 'gnus-group-mode-hook 'gnus-topic-mode)              ;新闻组分组
(add-hook 'gnus-summary-mode-hook
          (lambda ()
            (setq line-spacing 3)
            (local-set-key (kbd "<f1>") 'gnus-uu-mark-all)
            (local-set-key (kbd "<f2>") 'gnus-uu-unmark-thread)
            (local-set-key (kbd "<f3>") 'gnus-uu-mark-thread)))
;; visual
(setq gnus-treat-emphasize t
      gnus-treat-buttonize t
      gnus-treat-buttonize-head 'head
      gnus-treat-unsplit-urls 'last
      gnus-treat-leading-whitespace 'head
      gnus-treat-highlight-citation t
      gnus-treat-highlight-signature t
      gnus-treat-date-lapsed 'head
      gnus-treat-strip-trailing-blank-lines t
      gnus-treat-strip-cr t
      gnus-treat-overstrike nil
      gnus-treat-display-x-face t
      gnus-treat-display-face t
      gnus-treat-display-smileys nil
      gnus-treat-x-pgp-sig 'head)

;; 设置邮件报头显示的信息
(setq gnus-visible-headers
      (mapconcat 'regexp-quote
                 '("From:" "Newsgroups:" "Subject:" "Date:"
                   "Organization:" "To:" "Cc:" "Followup-To" "Gnus-Warnings:"
                   "X-Sent:" "X-URL:" "User-Agent:" "X-Newsreader:"
                   "X-Mailer:" "Reply-To:" "X-Spam:" "X-Spam-Status:" "X-Now-Playing"
                   "X-Attachments" "X-Diagnostic")
                 "\\|"))

;; 设置邮件日期显示格式,使用两行日期，一行具体日期时间，另一行显示article
;; 距现在多长时间
(setq gnus-article-date-headers '(user-defined))
(setq gnus-article-time-format
      (lambda (time)
	(concat "X-Sent:   "
                (format-time-string "%Y年%m月%d日 星期%u %R" time)
                "\n"
                "X-Lasped: "
                (article-lapsed-string time)
                )))


;; 用 Supercite 显示多种多样的引文形式
(setq sc-attrib-selection-list nil
      sc-auto-fill-region-p nil
      sc-blank-lines-after-headers 1
      sc-citation-delimiter-regexp "[>]+\\|\\(: \\)+"
      sc-cite-blank-lines-p nil
      sc-confirm-always-p nil
      sc-electric-references-p nil
      sc-fixup-whitespace-p t
      sc-nested-citation-p nil
      sc-preferred-header-style 4
      sc-use-only-preference-p nil)

;; 线程设置
(setq
 gnus-use-trees t                                                       ;联系老的标题
 gnus-tree-minimize-window nil                                          ;用最小窗口显示
 ;; gnus-fetch-old-headers 'some                                           ;抓取老的标题以联系线程,速度极慢
 gnus-generate-tree-function 'gnus-generate-horizontal-tree             ;生成水平树
 gnus-summary-thread-gathering-function 'gnus-gather-threads-by-subject ;聚集函数根据标题聚集
 )
;; 排序
(setq gnus-thread-sort-functions
      '((not gnus-thread-sort-by-number)
        (not gnus-thread-sort-by-date)))

;; 自动跳到第一个没有阅读的组
(add-hook 'gnus-switch-on-after-hook 'gnus-group-first-unread-group) ;gnus切换时
(add-hook 'gnus-summary-exit-hook 'gnus-group-first-unread-group)    ;退出Summary时

;; 设置message hook
(add-hook 'message-mode-hook 'turn-on-orgstruct)
(add-hook 'message-mode-hook 'turn-on-orgstruct++)


;; 每隔10分钟刷新一下
(add-hook 'gnus-startup-hook
          '(lambda () (progn
                    (setq gnus-use-demon t)
                    (gnus-demon-add-handler 'gnus-demon-scan-news 10 nil))))


;; 启用桌面提醒功能
(add-hook 'gnus-after-getting-new-news-hook 'gnus-notifications)



;;;###autoload
(add-hook 'gnus-before-startup-hook
       '(lambda () (require 'eh-gnus)))

(provide 'eh-gnus)

;; Local Variables:
;; coding: utf-8-unix
;; End:

;;; eh-gnus.el ends here

#+end_src




>
> Best,
>
> Jo. 
>
> 2013/5/15 Eric Schulte <schulte.eric@gmail.com>
>
>     
>     Uwe Brauer <oub@mat.ucm.es> writes:
>     
>     >>> "Eric" == Eric Schulte <schulte.eric@gmail.com> writes:
>     >
>     > > Joseph Vidal-Rosset <joseph.vidal.rosset@gmail.com> writes:
>     > >>
>     > >> -
>     >
>     > > A while back Org-mode switched its method of exporting latex
>     equations
>     > > to HTML. Equations used to be exported as png images, however
>     they are
>     > > now exported as markup which may then be processed on the fly
>     by
>     > > client-side javascript. Most mail readers do not allow
>     javascript in
>     > > html email, and I doubt that the required javascript headers
>     are
>     > > included in the mail html mime part.
>     >
>     > > I don't know if it is currently possible to do the javascript
>     > > pre-processing as part of the HTML export, but that would
>     probably be
>     > > the best solution in this case.
>     >
>     > Couldn't the old functionality (converting to png) be
>     reactivated, at
>     > least optionally?? For me this change are bad news, since the
>     feature
>     > (to export LaTeX math to something visible) is very important to
>     me and
>     > even if this approach may have disadvantages, it seems to me
>     more
>     > universal than the javascript business.
>     >
>     
>     
>     Indeed the old latex->png functionality is still available, I just
>     had
>     to update org-mime to work with the new exporter. Export of latex
>     to
>     attached png images should once again be working in the master
>     branch of
>     the git repo.
>     
>     Best,
>     
>     >
>     >
>     > Uwe Brauer
>     
>     
>     >
>     >
>     
>     --
>     Eric Schulte
>     http://cs.unm.edu/~eschulte

-- 

Re: org-mime

[Joseph Vidal-Rosset]

[-- Attachment #1: Type: text/plain, Size: 664 bytes --]

2013/5/16 Feng Shu <tumashu@gmail.com>

> Your setting may be  same as  my emacs configure ,I use 1. gnus +
> offlineimap + dovecot + gmail + org-contacts.el 2. org-mode + xelatex
> May be my configure can help you
>

Of course it could be helpful and I thank you warmly for your email. At the
moment I'm using neither offlineimap neither xelatex, but why not.
My worry of the day is to understand why, on my laptop only, I meet this
error message of "smtp-server not defined"; I do not understand, and I see
via Google that I am not alone...
We stay in touch, no doubt that you can help me to succeed in improving my
use of  emacs and LaTeX.

Thanks again !

Jo.

[-- Attachment #2: Type: text/html, Size: 1258 bytes --]

Re: org-mime

[Eric Schulte]

Joseph Vidal-Rosset <joseph.vidal.rosset@gmail.com> writes:

> I thank you Eric and Uwe for your help. Many thanks also to all the
> developers of emacs and org-mode.
>
> In fact I just spent two days in configuring my emacs24 and gnus. (Eric, I
> did not understand how worked your emacs24-starter-kit , which is a nice
> tool indeed).
>
> The last problem that I meet on my laptop is  an error message :
> smtp-server not defined , and , until now, I do not find how to fix it :(
> (if someone has a suggestion, thanks in advance).
>

Maybe you need to define the `smtpmail-smtp-server' variable?  The
following provides fairly simple step-by-step instructions for
configuring gnus to work with gmail.

  http://www.emacswiki.org/emacs/GnusGmail

Gnus provides so many options that it can be daunting to configure.
However a simple configuration (just reading and writing email) should
be simple to configure (and should end up with a short <20 line
configuration).  The trick is to avoid including the sophisticated fancy
extra options until *after* you have the basics working.

Hope this helps,

>
> My goal is to succeed to stay in emacs, for LaTeX as well as for emails,
> but I have to work again. Every help on LaTeX and emails via org-mode will
> be welcome.
>
>
> Best,
>
> Jo.
>
>
>
> 2013/5/15 Eric Schulte <schulte.eric@gmail.com>
>
>> Uwe Brauer <oub@mat.ucm.es> writes:
>>
>> >>> "Eric" == Eric Schulte <schulte.eric@gmail.com> writes:
>> >
>> >    > Joseph Vidal-Rosset <joseph.vidal.rosset@gmail.com> writes:
>> >    >>
>> >    >> -
>> >
>> >    > A while back Org-mode switched its method of exporting latex
>> equations
>> >    > to HTML.  Equations used to be exported as png images, however they
>> are
>> >    > now exported as markup which may then be processed on the fly by
>> >    > client-side javascript.  Most mail readers do not allow javascript
>> in
>> >    > html email, and I doubt that the required javascript headers are
>> >    > included in the mail html mime part.
>> >
>> >    > I don't know if it is currently possible to do the javascript
>> >    > pre-processing as part of the HTML export, but that would probably
>> be
>> >    > the best solution in this case.
>> >
>> > Couldn't the old functionality (converting to png) be reactivated, at
>> > least optionally?? For me this change are bad news, since the feature
>> > (to export LaTeX math to something visible) is very important to me and
>> > even if this approach may have disadvantages, it seems to me more
>> > universal than the  javascript business.
>> >
>>
>> Indeed the old latex->png functionality is still available, I just had
>> to update org-mime to work with the new exporter.  Export of latex to
>> attached png images should once again be working in the master branch of
>> the git repo.
>>
>> Best,
>>
>> >
>> >
>> > Uwe Brauer
>> >
>> >
>>
>> --
>> Eric Schulte
>> http://cs.unm.edu/~eschulte
>>
>>

-- 
Eric Schulte
http://cs.unm.edu/~eschulte

Re: org-mime

[Feng Shu]

Joseph Vidal-Rosset <joseph.vidal.rosset@gmail.com> writes:

> 2013/5/16 Feng Shu <tumashu@gmail.com>
>
>     Your setting may be same as my emacs configure ,I use 1. gnus +
>     offlineimap + dovecot + gmail + org-contacts.el 2. org-mode +
>     xelatex
>     May be my configure can help you
>
> Of course it could be helpful and I thank you warmly for your email.
> At the moment I'm using neither offlineimap neither xelatex, but why
> not. 
> My worry of the day is to understand why, on my laptop only, I meet
> this error message of "smtp-server not defined"; I do not understand,
> and I see via Google that I am not alone...

some guess:
1. you can try the newest devel version from gnus.git
2. install gnutls, openssl, and so on
3. Is your authinfo correct?
4. reinstall emacs

> We stay in touch, no doubt that you can help me to succeed in
> improving my use of emacs and LaTeX.
>
> Thanks again !
>
> Jo. 

-- 

Re: org-mime

[Joseph Vidal-Rosset]

[-- Attachment #1: Type: text/plain, Size: 2030 bytes --]

Hi , the solution to the smtp-server not defined was there:

http://lists.gnu.org/archive/html/info-gnus-english/2010-02/msg00060.html

Re: `smtp-server' not defined
------------------------------
*From*:Katsumi Yamaoka*Subject*:Re: `smtp-server' not defined *Date*:Thu,
18 Feb 2010 20:11:42 +0900*User-agent*:Gnus/5.110011 (No Gnus v0.11)
Emacs/23.1.92 (gnu/linux)
------------------------------

>*>>>> evan wrote:*
>* Any idea why I get the message "`smtp-server' not defined" when I try*
>* to send mail via gnus? I have tried to see what is wrong but I cannot*
>* find anything.*

Remove smtpmail.el(c) that comes from the FLIM package (not the
one of Emacs).  You can find it by performing:

M-x locate-library RET smtpmail RET

The FLIM package contains the different version of smtpmail.el,
that issues the error message in question, though it will not be
installed normally.


-- end of quotation.

Thanks to all of you,

I will work on emacs and gnus next days ( it is very time consuming ).

Jo.



2013/5/16 Feng Shu <tumashu@gmail.com>

> Joseph Vidal-Rosset <joseph.vidal.rosset@gmail.com> writes:
>
> > 2013/5/16 Feng Shu <tumashu@gmail.com>
> >
> >     Your setting may be same as my emacs configure ,I use 1. gnus +
> >     offlineimap + dovecot + gmail + org-contacts.el 2. org-mode +
> >     xelatex
> >     May be my configure can help you
> >
> > Of course it could be helpful and I thank you warmly for your email.
> > At the moment I'm using neither offlineimap neither xelatex, but why
> > not.
> > My worry of the day is to understand why, on my laptop only, I meet
> > this error message of "smtp-server not defined"; I do not understand,
> > and I see via Google that I am not alone...
>
> some guess:
> 1. you can try the newest devel version from gnus.git
> 2. install gnutls, openssl, and so on
> 3. Is your authinfo correct?
> 4. reinstall emacs
>
> > We stay in touch, no doubt that you can help me to succeed in
> > improving my use of emacs and LaTeX.
> >
> > Thanks again !
> >
> > Jo.
>
> --
>

[-- Attachment #2: Type: text/html, Size: 3668 bytes --]