Emacs组织模式提要不显示来自gmail atom提要的电子邮件正文

我已经用以下代码成功地将我的Gmail Atom提要拉入一个org文件

（setq组织提要）
“（“邮件条目”
"http://mail.google.com/mail/feed/atom"
“~/org/feeds.org”“邮件条目”
：解析条目组织提要解析原子条目
：解析提要组织提要解析原子提要
：项目全文
：模板“*待办事项%title\n%summary\n”
)))

典型的Gmail Atom提要如下所示：

Gmail-电子邮件收件箱mail@gmail.com
Gmail收件箱中的新邮件
1.
2011-02-22T06:38:03Z
回复：紧急
现在就这样做，否则世界末日就要来临了
2011-02-21T21:30:18Z
2011-02-21T21:30:18Z
标签：gmail.google.com，2003:104521846321321
我
mail@gmail.com

当我点击C-C-XG并输入我的凭证时，我在我的.org文件中得到了这个

** TODO RE: URGENT URGENT
  %summary

而不是Atom提要中的实际摘要，应该是“现在就做，否则世界会结束”

我已经阅读了org-feed.el中的文档，这一行让我相信我可以在模板中使用

%summary

包含摘要XML项

提要项中的任何字段都可以使用

%name

，例如

%title

，

%description

，

%publidate

等

我弄错了吗？有没有办法将摘要插入我的模板（最好不修改org feed.el）

---

所有的帮助者都会收到感谢和彩虹

问题在于org提要解析atom条目。它不提供对所有xml元素的访问

我通过以下几点建议成功地实现了总结：

(defadvice org-feed-parse-atom-entry (after org-feed-parse-atom-entry-summary activate)
  ;; Add <summary/> as :summary.
  (let* ((entry (ad-get-arg 0))
         (xml (car (read-from-string (plist-get entry :item-full-text)))))
    (setq entry (plist-put entry :summary
                           (xml-substitute-special
                            (car (xml-node-children
                                  (car (xml-get-children xml 'summary)))))))
    entry))

（defadvice组织提要解析原子条目（在组织提要解析原子条目摘要激活后）
添加为：摘要。
（let*（（输入（ad get arg 0））
（xml（car（从字符串读取（plist-get-entry:item-full-text‘‘‘）’））
（setq条目（plist put条目：汇总
（xml替代特别
（car）xml节点子节点
（car（xml-get-children-xml'summary(()())()()))41
入境)

---

此外，：item全文不是组织提要列表的适当关键字。它是传递给各个函数的条目p-list中使用的键。

问题在于org feed parse atom条目。它不提供对所有xml元素的访问

我通过以下几点建议成功地实现了总结：

(defadvice org-feed-parse-atom-entry (after org-feed-parse-atom-entry-summary activate)
  ;; Add <summary/> as :summary.
  (let* ((entry (ad-get-arg 0))
         (xml (car (read-from-string (plist-get entry :item-full-text)))))
    (setq entry (plist-put entry :summary
                           (xml-substitute-special
                            (car (xml-node-children
                                  (car (xml-get-children xml 'summary)))))))
    entry))

（defadvice组织提要解析原子条目（在组织提要解析原子条目摘要激活后）
添加为：摘要。
（let*（（输入（ad get arg 0））
（xml（car（从字符串读取（plist-get-entry:item-full-text‘‘‘）’））
（setq条目（plist put条目：汇总
（xml替代特别
（car）xml节点子节点
（car（xml-get-children-xml'summary(()())()()))41
入境)

---

此外，：item全文不是组织提要列表的适当关键字。它是传递给各个函数的条目p-list中使用的键。

这非常有效。我没有足够的代表投票，但正如我所承诺的，我给你们很多的感谢和彩虹，这一切都很完美。我没有足够的票数来投票，但正如我所承诺的，我给你们很多的感谢和彩虹