| ofs | hex dump | ascii |
|---|---|---|
| 0000 | 6f 72 67 2d 6d 73 67 2d 32 30 32 34 30 39 30 32 2e 34 34 37 2f 00 00 00 00 00 00 00 00 00 00 00 | org-msg-20240902.447/........... |
| 0020 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0040 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0060 | 00 00 00 00 30 30 30 30 37 35 35 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000755.0000000.0000000.0000 |
| 0080 | 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 32 33 30 35 00 20 35 00 00 00 | 0000000.00000000000.012305..5... |
| 00a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 00c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 00e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0100 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 0120 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 0140 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0160 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0180 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 01a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 01c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 01e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0200 | 6f 72 67 2d 6d 73 67 2d 32 30 32 34 30 39 30 32 2e 34 34 37 2f 6f 72 67 2d 6d 73 67 2d 70 6b 67 | org-msg-20240902.447/org-msg-pkg |
| 0220 | 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .el............................. |
| 0240 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0260 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 0280 | 30 30 30 30 37 36 37 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 34 37 37 33 00 20 30 00 00 00 | 0000767.00000000000.014773..0... |
| 02a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 02c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 02e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0300 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 0320 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 0340 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0360 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 03a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 03c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 03e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0400 | 3b 3b 20 2d 2a 2d 20 6e 6f 2d 62 79 74 65 2d 63 6f 6d 70 69 6c 65 3a 20 74 3b 20 6c 65 78 69 63 | ;;.-*-.no-byte-compile:.t;.lexic |
| 0420 | 61 6c 2d 62 69 6e 64 69 6e 67 3a 20 6e 69 6c 20 2d 2a 2d 0a 28 64 65 66 69 6e 65 2d 70 61 63 6b | al-binding:.nil.-*-.(define-pack |
| 0440 | 61 67 65 20 22 6f 72 67 2d 6d 73 67 22 20 22 32 30 32 34 30 39 30 32 2e 34 34 37 22 0a 20 20 22 | age."org-msg"."20240902.447"..." |
| 0460 | 4f 72 67 20 6d 6f 64 65 20 74 6f 20 73 65 6e 64 20 61 6e 64 20 72 65 70 6c 79 20 74 6f 20 65 6d | Org.mode.to.send.and.reply.to.em |
| 0480 | 61 69 6c 20 69 6e 20 48 54 4d 4c 2e 22 0a 20 20 27 28 28 65 6d 61 63 73 20 20 20 22 32 34 2e 34 | ail.in.HTML."...'((emacs..."24.4 |
| 04a0 | 22 29 0a 20 20 20 20 28 68 74 6d 6c 69 7a 65 20 22 31 2e 35 34 22 29 29 0a 20 20 3a 75 72 6c 20 | ").....(htmlize."1.54"))...:url. |
| 04c0 | 22 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 6a 65 72 65 6d 79 2d 63 6f 6d 70 6f | "https://github.com/jeremy-compo |
| 04e0 | 73 74 65 6c 6c 61 2f 6f 72 67 2d 6d 73 67 22 0a 20 20 3a 63 6f 6d 6d 69 74 20 22 35 39 65 32 30 | stella/org-msg"...:commit."59e20 |
| 0500 | 34 32 65 35 66 32 33 65 32 35 66 33 31 63 36 61 65 66 30 64 62 31 65 37 30 63 36 66 35 34 66 31 | 42e5f23e25f31c6aef0db1e70c6f54f1 |
| 0520 | 31 37 64 22 0a 20 20 3a 72 65 76 64 65 73 63 20 22 35 39 65 32 30 34 32 65 35 66 32 33 22 0a 20 | 17d"...:revdesc."59e2042e5f23".. |
| 0540 | 20 3a 6b 65 79 77 6f 72 64 73 20 27 28 22 65 78 74 65 6e 73 69 6f 6e 73 22 20 22 6d 61 69 6c 22 | .:keywords.'("extensions"."mail" |
| 0560 | 29 0a 20 20 3a 61 75 74 68 6f 72 73 20 27 28 28 22 4a c3 a9 72 c3 a9 6d 79 20 43 6f 6d 70 6f 73 | )...:authors.'(("J..r..my.Compos |
| 0580 | 74 65 6c 6c 61 22 20 2e 20 22 6a 65 72 65 6d 79 2e 63 6f 6d 70 6f 73 74 65 6c 6c 61 40 67 6d 61 | tella"..."jeremy.compostella@gma |
| 05a0 | 69 6c 2e 63 6f 6d 22 29 29 0a 20 20 3a 6d 61 69 6e 74 61 69 6e 65 72 73 20 27 28 28 22 4a c3 a9 | il.com"))...:maintainers.'(("J.. |
| 05c0 | 72 c3 a9 6d 79 20 43 6f 6d 70 6f 73 74 65 6c 6c 61 22 20 2e 20 22 6a 65 72 65 6d 79 2e 63 6f 6d | r..my.Compostella"..."jeremy.com |
| 05e0 | 70 6f 73 74 65 6c 6c 61 40 67 6d 61 69 6c 2e 63 6f 6d 22 29 29 29 0a 00 00 00 00 00 00 00 00 00 | postella@gmail.com"))).......... |
| 0600 | 6f 72 67 2d 6d 73 67 2d 32 30 32 34 30 39 30 32 2e 34 34 37 2f 6f 72 67 2d 6d 73 67 2e 65 6c 00 | org-msg-20240902.447/org-msg.el. |
| 0620 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0640 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0660 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 0680 | 30 31 36 37 34 35 30 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 34 32 31 37 00 20 30 00 00 00 | 0167450.00000000000.014217..0... |
| 06a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 06c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 06e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0700 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 0720 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 0740 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0760 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0780 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 07a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 07c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 07e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0800 | 3b 3b 3b 20 6f 72 67 2d 6d 73 67 2e 65 6c 20 2d 2d 2d 20 4f 72 67 20 6d 6f 64 65 20 74 6f 20 73 | ;;;.org-msg.el.---.Org.mode.to.s |
| 0820 | 65 6e 64 20 61 6e 64 20 72 65 70 6c 79 20 74 6f 20 65 6d 61 69 6c 20 69 6e 20 48 54 4d 4c 2e 20 | end.and.reply.to.email.in.HTML.. |
| 0840 | 2d 2a 2d 20 6c 65 78 69 63 61 6c 2d 62 69 6e 64 69 6e 67 3a 20 74 3b 20 2d 2a 2d 0a 0a 3b 3b 20 | -*-.lexical-binding:.t;.-*-..;;. |
| 0860 | 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 32 30 31 38 2d 32 30 32 31 20 4a c3 a9 72 c3 a9 6d 79 | Copyright.(C).2018-2021.J..r..my |
| 0880 | 20 43 6f 6d 70 6f 73 74 65 6c 6c 61 0a 0a 3b 3b 20 41 75 74 68 6f 72 3a 20 4a c3 a9 72 c3 a9 6d | .Compostella..;;.Author:.J..r..m |
| 08a0 | 79 20 43 6f 6d 70 6f 73 74 65 6c 6c 61 20 3c 6a 65 72 65 6d 79 2e 63 6f 6d 70 6f 73 74 65 6c 6c | y.Compostella.<jeremy.compostell |
| 08c0 | 61 40 67 6d 61 69 6c 2e 63 6f 6d 3e 0a 3b 3b 20 43 72 65 61 74 65 64 3a 20 4a 61 6e 75 61 72 79 | a@gmail.com>.;;.Created:.January |
| 08e0 | 20 32 30 31 38 0a 3b 3b 20 4b 65 79 77 6f 72 64 73 3a 20 65 78 74 65 6e 73 69 6f 6e 73 20 6d 61 | .2018.;;.Keywords:.extensions.ma |
| 0900 | 69 6c 0a 3b 3b 20 48 6f 6d 65 70 61 67 65 3a 20 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 | il.;;.Homepage:.https://github.c |
| 0920 | 6f 6d 2f 6a 65 72 65 6d 79 2d 63 6f 6d 70 6f 73 74 65 6c 6c 61 2f 6f 72 67 2d 6d 73 67 0a 3b 3b | om/jeremy-compostella/org-msg.;; |
| 0940 | 20 50 61 63 6b 61 67 65 2d 56 65 72 73 69 6f 6e 3a 20 32 30 32 34 30 39 30 32 2e 34 34 37 0a 3b | .Package-Version:.20240902.447.; |
| 0960 | 3b 20 50 61 63 6b 61 67 65 2d 52 65 76 69 73 69 6f 6e 3a 20 35 39 65 32 30 34 32 65 35 66 32 33 | ;.Package-Revision:.59e2042e5f23 |
| 0980 | 0a 3b 3b 20 50 61 63 6b 61 67 65 2d 52 65 71 75 69 72 65 73 3a 20 28 28 65 6d 61 63 73 20 22 32 | .;;.Package-Requires:.((emacs."2 |
| 09a0 | 34 2e 34 22 29 20 28 68 74 6d 6c 69 7a 65 20 22 31 2e 35 34 22 29 29 0a 0a 3b 3b 20 54 68 69 73 | 4.4").(htmlize."1.54"))..;;.This |
| 09c0 | 20 70 72 6f 67 72 61 6d 20 69 73 20 66 72 65 65 20 73 6f 66 74 77 61 72 65 3b 20 79 6f 75 20 63 | .program.is.free.software;.you.c |
| 09e0 | 61 6e 20 72 65 64 69 73 74 72 69 62 75 74 65 20 69 74 20 61 6e 64 2f 6f 72 20 6d 6f 64 69 66 79 | an.redistribute.it.and/or.modify |
| 0a00 | 0a 3b 3b 20 69 74 20 75 6e 64 65 72 20 74 68 65 20 74 65 72 6d 73 20 6f 66 20 74 68 65 20 47 4e | .;;.it.under.the.terms.of.the.GN |
| 0a20 | 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 61 73 20 70 75 62 6c | U.General.Public.License.as.publ |
| 0a40 | 69 73 68 65 64 20 62 79 0a 3b 3b 20 74 68 65 20 46 72 65 65 20 53 6f 66 74 77 61 72 65 20 46 6f | ished.by.;;.the.Free.Software.Fo |
| 0a60 | 75 6e 64 61 74 69 6f 6e 2c 20 65 69 74 68 65 72 20 76 65 72 73 69 6f 6e 20 33 20 6f 66 20 74 68 | undation,.either.version.3.of.th |
| 0a80 | 65 20 4c 69 63 65 6e 73 65 2c 20 6f 72 0a 3b 3b 20 28 61 74 20 79 6f 75 72 20 6f 70 74 69 6f 6e | e.License,.or.;;.(at.your.option |
| 0aa0 | 29 20 61 6e 79 20 6c 61 74 65 72 20 76 65 72 73 69 6f 6e 2e 0a 0a 3b 3b 20 54 68 69 73 20 70 72 | ).any.later.version...;;.This.pr |
| 0ac0 | 6f 67 72 61 6d 20 69 73 20 64 69 73 74 72 69 62 75 74 65 64 20 69 6e 20 74 68 65 20 68 6f 70 65 | ogram.is.distributed.in.the.hope |
| 0ae0 | 20 74 68 61 74 20 69 74 20 77 69 6c 6c 20 62 65 20 75 73 65 66 75 6c 2c 0a 3b 3b 20 62 75 74 20 | .that.it.will.be.useful,.;;.but. |
| 0b00 | 57 49 54 48 4f 55 54 20 41 4e 59 20 57 41 52 52 41 4e 54 59 3b 20 77 69 74 68 6f 75 74 20 65 76 | WITHOUT.ANY.WARRANTY;.without.ev |
| 0b20 | 65 6e 20 74 68 65 20 69 6d 70 6c 69 65 64 20 77 61 72 72 61 6e 74 79 20 6f 66 0a 3b 3b 20 4d 45 | en.the.implied.warranty.of.;;.ME |
| 0b40 | 52 43 48 41 4e 54 41 42 49 4c 49 54 59 20 6f 72 20 46 49 54 4e 45 53 53 20 46 4f 52 20 41 20 50 | RCHANTABILITY.or.FITNESS.FOR.A.P |
| 0b60 | 41 52 54 49 43 55 4c 41 52 20 50 55 52 50 4f 53 45 2e 20 20 53 65 65 20 74 68 65 0a 3b 3b 20 47 | ARTICULAR.PURPOSE...See.the.;;.G |
| 0b80 | 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 66 6f 72 20 6d 6f | NU.General.Public.License.for.mo |
| 0ba0 | 72 65 20 64 65 74 61 69 6c 73 2e 0a 0a 3b 3b 20 59 6f 75 20 73 68 6f 75 6c 64 20 68 61 76 65 20 | re.details...;;.You.should.have. |
| 0bc0 | 72 65 63 65 69 76 65 64 20 61 20 63 6f 70 79 20 6f 66 20 74 68 65 20 47 4e 55 20 47 65 6e 65 72 | received.a.copy.of.the.GNU.Gener |
| 0be0 | 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 0a 3b 3b 20 61 6c 6f 6e 67 20 77 69 74 68 20 | al.Public.License.;;.along.with. |
| 0c00 | 74 68 69 73 20 70 72 6f 67 72 61 6d 2e 20 20 49 66 20 6e 6f 74 2c 20 73 65 65 20 3c 68 74 74 70 | this.program...If.not,.see.<http |
| 0c20 | 3a 2f 2f 77 77 77 2e 67 6e 75 2e 6f 72 67 2f 6c 69 63 65 6e 73 65 73 2f 3e 2e 0a 0a 3b 3b 3b 20 | ://www.gnu.org/licenses/>...;;;. |
| 0c40 | 43 6f 6d 6d 65 6e 74 61 72 79 3a 0a 0a 3b 3b 20 4f 72 67 4d 73 67 20 69 73 20 61 20 47 4e 55 2f | Commentary:..;;.OrgMsg.is.a.GNU/ |
| 0c60 | 45 6d 61 63 73 20 67 6c 6f 62 61 6c 20 6d 69 6e 6f 72 20 6d 6f 64 65 20 6d 69 78 69 6e 67 20 75 | Emacs.global.minor.mode.mixing.u |
| 0c80 | 70 20 4f 72 67 20 6d 6f 64 65 20 61 6e 64 20 79 6f 75 72 0a 3b 3b 20 4d 61 69 6c 20 55 73 65 72 | p.Org.mode.and.your.;;.Mail.User |
| 0ca0 | 20 41 67 65 6e 74 20 4d 6f 64 65 20 74 6f 20 63 6f 6d 70 6f 73 65 20 61 6e 64 20 72 65 70 6c 79 | .Agent.Mode.to.compose.and.reply |
| 0cc0 | 20 74 6f 20 65 6d 61 69 6c 73 20 69 6e 20 61 20 48 54 4d 4c 0a 3b 3b 20 66 72 69 65 6e 64 6c 79 | .to.emails.in.a.HTML.;;.friendly |
| 0ce0 | 20 73 74 79 6c 65 2e 0a 0a 3b 3b 3b 20 43 6f 64 65 3a 0a 0a 28 72 65 71 75 69 72 65 20 27 63 6c | .style...;;;.Code:..(require.'cl |
| 0d00 | 2d 6c 69 62 29 0a 28 72 65 71 75 69 72 65 20 27 63 6c 2d 6d 61 63 73 29 0a 28 72 65 71 75 69 72 | -lib).(require.'cl-macs).(requir |
| 0d20 | 65 20 27 63 6c 2d 73 65 71 29 0a 28 72 65 71 75 69 72 65 20 27 67 6e 75 73 2d 61 72 74 29 0a 28 | e.'cl-seq).(require.'gnus-art).( |
| 0d40 | 72 65 71 75 69 72 65 20 27 67 6e 75 73 2d 63 69 74 65 29 0a 28 72 65 71 75 69 72 65 20 27 67 6e | require.'gnus-cite).(require.'gn |
| 0d60 | 75 73 2d 64 69 72 65 64 29 0a 28 72 65 71 75 69 72 65 20 27 67 6e 75 73 2d 69 63 61 6c 65 6e 64 | us-dired).(require.'gnus-icalend |
| 0d80 | 61 72 29 0a 28 72 65 71 75 69 72 65 20 27 67 6e 75 73 2d 6d 73 67 29 0a 28 72 65 71 75 69 72 65 | ar).(require.'gnus-msg).(require |
| 0da0 | 20 27 68 74 6d 6c 69 7a 65 29 0a 28 72 65 71 75 69 72 65 20 27 6d 65 73 73 61 67 65 29 0a 28 72 | .'htmlize).(require.'message).(r |
| 0dc0 | 65 71 75 69 72 65 20 27 6d 6d 6c 29 0a 28 72 65 71 75 69 72 65 20 27 6f 72 67 29 0a 28 72 65 71 | equire.'mml).(require.'org).(req |
| 0de0 | 75 69 72 65 20 27 6f 78 29 0a 28 72 65 71 75 69 72 65 20 27 73 75 62 72 2d 78 29 0a 28 72 65 71 | uire.'ox).(require.'subr-x).(req |
| 0e00 | 75 69 72 65 20 27 75 72 6c 2d 70 61 72 73 65 29 0a 28 72 65 71 75 69 72 65 20 27 78 6d 6c 29 0a | uire.'url-parse).(require.'xml). |
| 0e20 | 0a 28 64 65 66 67 72 6f 75 70 20 6f 72 67 2d 6d 73 67 20 6e 69 6c 0a 20 20 22 4f 72 67 20 4d 65 | .(defgroup.org-msg.nil..."Org.Me |
| 0e40 | 73 73 61 67 65 20 67 72 6f 75 70 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 61 70 70 6c 69 63 61 74 | ssage.group."...:group.'applicat |
| 0e60 | 69 6f 6e 73 29 0a 0a 28 64 65 66 76 61 72 20 6f 72 67 2d 6d 73 67 2d 61 74 74 61 63 68 6d 65 6e | ions)..(defvar.org-msg-attachmen |
| 0e80 | 74 20 27 28 29 0a 20 20 22 54 65 6d 70 6f 72 61 72 79 20 76 61 72 69 61 62 6c 65 20 74 6f 20 70 | t.'()..."Temporary.variable.to.p |
| 0ea0 | 61 73 73 20 74 68 65 20 6c 69 73 74 20 6f 66 20 61 74 74 61 63 68 6d 65 6e 74 2e 22 29 0a 0a 28 | ass.the.list.of.attachment.")..( |
| 0ec0 | 64 65 66 76 61 72 20 6f 72 67 2d 6d 73 67 2d 6d 6d 6c 20 6e 69 6c 0a 20 20 22 54 65 6d 70 6f 72 | defvar.org-msg-mml.nil..."Tempor |
| 0ee0 | 61 72 79 20 76 61 72 69 61 62 6c 65 20 74 6f 20 70 61 73 73 20 74 68 65 20 4d 4d 4c 20 63 6f 6e | ary.variable.to.pass.the.MML.con |
| 0f00 | 74 65 6e 74 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 6f 72 67 2d 6d 73 67 2d 61 6c 74 65 72 6e 61 | tent.")..(defvar.org-msg-alterna |
| 0f20 | 74 69 76 65 73 20 6e 69 6c 0a 20 20 22 54 65 6d 70 6f 72 61 72 79 20 61 6c 69 73 74 20 74 6f 20 | tives.nil..."Temporary.alist.to. |
| 0f40 | 68 6f 6c 64 20 74 68 65 20 63 6f 6e 74 65 6e 74 73 20 6f 66 20 65 61 63 68 20 61 6c 74 65 72 6e | hold.the.contents.of.each.altern |
| 0f60 | 61 74 69 76 65 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 6f 72 67 2d 6d 73 67 2d 65 78 70 6f 72 74 | ative.")..(defvar.org-msg-export |
| 0f80 | 2d 69 6e 2d 70 72 6f 67 72 65 73 73 20 6e 69 6c 0a 20 20 22 49 6e 74 65 72 6e 61 6c 20 75 73 65 | -in-progress.nil..."Internal.use |
| 0fa0 | 20 6f 6e 6c 79 2e 0a 49 74 20 69 73 20 75 73 65 64 20 62 79 20 66 75 6e 63 74 69 6f 6e 20 61 64 | .only..It.is.used.by.function.ad |
| 0fc0 | 76 69 63 65 2e 22 29 0a 0a 28 64 65 66 76 61 72 2d 6c 6f 63 61 6c 20 6f 72 67 2d 6d 73 67 2d 6d | vice.")..(defvar-local.org-msg-m |
| 0fe0 | 6d 6c 2d 62 75 66 66 65 72 2d 6c 69 73 74 20 27 28 29 0a 20 20 22 55 73 65 64 20 74 6f 20 73 74 | ml-buffer-list.'()..."Used.to.st |
| 1000 | 6f 72 65 20 74 68 65 20 60 6d 6d 6c 2d 62 75 66 66 65 72 2d 6c 69 73 74 27 20 76 61 72 69 61 62 | ore.the.`mml-buffer-list'.variab |
| 1020 | 6c 65 20 63 6f 6e 74 65 6e 74 20 6f 66 20 74 68 65 0a 63 75 72 72 65 6e 74 20 6d 65 73 73 61 67 | le.content.of.the.current.messag |
| 1040 | 65 2e 20 60 6d 6d 6c 2d 62 75 66 66 65 72 2d 6c 69 73 74 27 20 69 73 20 74 68 65 20 6c 69 73 74 | e..`mml-buffer-list'.is.the.list |
| 1060 | 20 6f 66 20 74 65 6d 70 6f 72 61 72 79 0a 62 75 66 66 65 72 20 68 6f 6c 64 69 6e 67 20 6d 6d 6c | .of.temporary.buffer.holding.mml |
| 1080 | 20 63 6f 6e 74 65 6e 74 73 2e 22 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 6f 72 67 2d 6d 73 67 | .contents.")..(defcustom.org-msg |
| 10a0 | 2d 73 65 70 61 72 61 74 6f 72 20 22 2d 2d 63 69 74 61 74 69 6f 6e 20 66 6f 6c 6c 6f 77 73 20 74 | -separator."--citation.follows.t |
| 10c0 | 68 69 73 20 6c 69 6e 65 20 28 72 65 61 64 2d 6f 6e 6c 79 29 2d 2d 22 0a 20 20 22 53 74 72 69 6e | his.line.(read-only)--"..."Strin |
| 10e0 | 67 20 73 65 70 61 72 61 74 69 6e 67 20 74 68 65 20 72 65 70 6c 79 20 61 72 65 61 20 61 6e 64 20 | g.separating.the.reply.area.and. |
| 1100 | 74 68 65 20 6f 72 69 67 69 6e 61 6c 20 6d 61 69 6c 2e 22 0a 20 20 3a 74 79 70 65 20 27 28 73 74 | the.original.mail."...:type.'(st |
| 1120 | 72 69 6e 67 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 6f 72 67 2d 6d 73 67 2d 6f 70 74 69 6f | ring))..(defcustom.org-msg-optio |
| 1140 | 6e 73 20 22 68 74 6d 6c 2d 70 6f 73 74 61 6d 62 6c 65 3a 6e 69 6c 20 74 6f 63 3a 6e 69 6c 20 61 | ns."html-postamble:nil.toc:nil.a |
| 1160 | 75 74 68 6f 72 3a 6e 69 6c 20 65 6d 61 69 6c 3a 6e 69 6c 22 0a 20 20 22 4f 72 67 20 4d 6f 64 65 | uthor:nil.email:nil"..."Org.Mode |
| 1180 | 20 23 2b 4f 50 54 49 4f 4e 53 2e 22 0a 20 20 3a 74 79 70 65 20 27 28 73 74 72 69 6e 67 29 29 0a | .#+OPTIONS."...:type.'(string)). |
| 11a0 | 0a 28 64 65 66 63 75 73 74 6f 6d 20 6f 72 67 2d 6d 73 67 2d 73 74 61 72 74 75 70 20 6e 69 6c 0a | .(defcustom.org-msg-startup.nil. |
| 11c0 | 20 20 22 4f 72 67 20 4d 6f 64 65 20 23 2b 53 54 41 52 54 55 50 2e 22 0a 20 20 3a 74 79 70 65 20 | .."Org.Mode.#+STARTUP."...:type. |
| 11e0 | 27 28 73 74 72 69 6e 67 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 6f 72 67 2d 6d 73 67 2d 61 | '(string))..(defcustom.org-msg-a |
| 1200 | 6c 74 65 72 6e 61 74 69 76 65 2d 65 78 70 6f 72 74 65 72 73 0a 20 20 60 28 28 74 65 78 74 20 2e | lternative-exporters...`((text.. |
| 1220 | 20 28 22 74 65 78 74 2f 70 6c 61 69 6e 22 20 2e 20 2c 28 61 70 70 6c 79 2d 70 61 72 74 69 61 6c | .("text/plain"...,(apply-partial |
| 1240 | 6c 79 20 27 6f 72 67 2d 6d 73 67 2d 65 78 70 6f 72 74 2d 61 73 2d 74 65 78 74 20 27 61 73 63 69 | ly.'org-msg-export-as-text.'asci |
| 1260 | 69 29 29 29 0a 20 20 20 20 28 75 74 66 2d 38 20 2e 20 28 22 74 65 78 74 2f 70 6c 61 69 6e 22 20 | i))).....(utf-8...("text/plain". |
| 1280 | 2e 20 2c 28 61 70 70 6c 79 2d 70 61 72 74 69 61 6c 6c 79 20 27 6f 72 67 2d 6d 73 67 2d 65 78 70 | ..,(apply-partially.'org-msg-exp |
| 12a0 | 6f 72 74 2d 61 73 2d 74 65 78 74 20 27 75 74 66 2d 38 29 29 29 0a 20 20 20 20 28 6f 72 67 20 2e | ort-as-text.'utf-8))).....(org.. |
| 12c0 | 20 28 22 74 65 78 74 2f 6f 72 67 22 20 2e 20 69 64 65 6e 74 69 74 79 29 29 0a 20 20 20 20 28 68 | .("text/org"...identity)).....(h |
| 12e0 | 74 6d 6c 20 2e 20 28 22 74 65 78 74 2f 68 74 6d 6c 22 20 2e 20 6f 72 67 2d 6d 73 67 2d 65 78 70 | tml...("text/html"...org-msg-exp |
| 1300 | 6f 72 74 2d 61 73 2d 68 74 6d 6c 29 29 29 0a 20 20 22 41 6c 69 73 74 20 6f 66 20 74 68 65 20 61 | ort-as-html)))..."Alist.of.the.a |
| 1320 | 76 61 69 6c 61 62 6c 65 20 61 6c 74 65 72 6e 61 74 69 76 65 20 65 78 70 6f 72 74 65 72 73 2e 0a | vailable.alternative.exporters.. |
| 1340 | 45 6e 74 72 69 65 73 20 61 72 65 20 69 6e 20 74 68 65 20 66 6f 72 6d 20 6f 66 20 60 28 74 61 67 | Entries.are.in.the.form.of.`(tag |
| 1360 | 20 2e 20 28 6d 69 6d 65 2d 70 61 72 74 20 2e 20 65 78 70 6f 72 74 2d 66 75 6e 63 74 69 6f 6e 29 | ...(mime-part...export-function) |
| 1380 | 29 27 2e 0a 54 68 65 20 65 78 70 6f 72 74 20 66 75 6e 63 74 69 6f 6e 20 74 61 6b 65 73 20 61 6e | )'..The.export.function.takes.an |
| 13a0 | 20 60 6f 72 67 2d 6d 73 67 27 20 6d 65 73 73 61 67 65 20 62 75 66 66 65 72 20 73 74 72 69 6e 67 | .`org-msg'.message.buffer.string |
| 13c0 | 20 61 6e 64 0a 72 65 74 75 72 6e 73 20 74 68 65 20 65 78 70 6f 72 74 65 64 20 63 6f 6e 74 65 6e | .and.returns.the.exported.conten |
| 13e0 | 74 20 61 73 20 61 20 73 74 72 69 6e 67 2e 22 0a 20 20 3a 74 79 70 65 20 27 28 6c 69 73 74 20 28 | t.as.a.string."...:type.'(list.( |
| 1400 | 63 6f 6e 73 74 20 73 79 6d 62 6f 6c 20 28 63 6f 6e 73 20 73 74 72 69 6e 67 20 73 79 6d 62 6f 6c | const.symbol.(cons.string.symbol |
| 1420 | 29 29 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 6f 72 67 2d 6d 73 67 2d 64 65 66 61 75 6c 74 | ))))..(defcustom.org-msg-default |
| 1440 | 2d 61 6c 74 65 72 6e 61 74 69 76 65 73 20 27 28 28 6e 65 77 20 2e 20 28 68 74 6d 6c 29 29 0a 09 | -alternatives.'((new...(html)).. |
| 1460 | 09 09 09 09 20 20 28 72 65 70 6c 79 2d 74 6f 2d 68 74 6d 6c 20 2e 20 28 68 74 6d 6c 29 29 29 0a | ......(reply-to-html...(html))). |
| 1480 | 20 20 22 41 6c 74 65 72 6e 61 74 69 76 65 20 4d 49 4d 45 20 66 6f 72 6d 61 74 73 20 74 6f 20 73 | .."Alternative.MIME.formats.to.s |
| 14a0 | 65 6e 64 2e 0a 54 68 69 73 20 63 75 73 74 6f 6d 69 7a 61 74 69 6f 6e 20 76 61 72 69 61 62 6c 65 | end..This.customization.variable |
| 14c0 | 20 6f 72 64 65 72 6c 79 20 6c 69 73 74 73 20 74 68 65 20 61 6c 74 65 72 6e 61 74 69 76 65 73 20 | .orderly.lists.the.alternatives. |
| 14e0 | 6f 66 20 61 6e 0a 6f 75 74 67 6f 69 6e 67 20 65 6d 61 69 6c 2e 20 54 68 65 20 70 6f 73 73 69 62 | of.an.outgoing.email..The.possib |
| 1500 | 6c 65 20 6b 65 79 73 20 61 72 65 3a 0a 2d 20 60 6e 65 77 27 20 66 6f 72 20 6e 65 77 20 65 6d 61 | le.keys.are:.-.`new'.for.new.ema |
| 1520 | 69 6c 20 69 73 20 6e 6f 74 20 61 20 72 65 70 6c 79 0a 2d 20 60 72 65 70 6c 79 2d 74 6f 2d 74 65 | il.is.not.a.reply.-.`reply-to-te |
| 1540 | 78 74 27 20 77 68 65 6e 20 74 68 65 20 65 6d 61 69 6c 20 62 65 69 6e 67 20 72 65 70 6c 69 65 64 | xt'.when.the.email.being.replied |
| 1560 | 20 74 6f 20 69 73 20 70 6c 61 69 6e 20 74 65 78 74 0a 2d 20 60 72 65 70 6c 79 2d 74 6f 2d 68 74 | .to.is.plain.text.-.`reply-to-ht |
| 1580 | 6d 6c 27 20 77 68 65 6e 20 74 68 65 20 65 6d 61 69 6c 20 62 65 69 6e 67 20 72 65 70 6c 69 65 64 | ml'.when.the.email.being.replied |
| 15a0 | 20 74 6f 20 69 73 20 68 74 6d 6c 0a 0a 57 68 65 6e 20 73 65 74 20 74 6f 20 61 20 73 69 6d 70 6c | .to.is.html..When.set.to.a.simpl |
| 15c0 | 65 20 6c 69 73 74 20 6f 66 20 61 6c 74 65 72 6e 61 74 69 76 65 73 20 61 6e 64 20 66 6f 72 20 62 | e.list.of.alternatives.and.for.b |
| 15e0 | 61 63 6b 77 61 72 64 0a 63 6f 6d 70 61 74 69 62 69 6c 69 74 79 20 69 74 20 61 70 70 6c 69 65 73 | ackward.compatibility.it.applies |
| 1600 | 20 74 6f 20 6e 65 77 20 65 6d 61 69 6c 73 20 61 6e 64 20 72 65 70 6c 69 65 73 20 74 6f 20 68 74 | .to.new.emails.and.replies.to.ht |
| 1620 | 6d 6c 20 65 6d 61 69 6c 73 0a 62 75 74 20 6e 6f 74 20 74 6f 20 72 65 70 6c 69 65 73 20 74 6f 20 | ml.emails.but.not.to.replies.to. |
| 1640 | 70 6c 61 69 6e 20 74 65 78 74 20 65 6d 61 69 6c 73 2e 0a 0a 41 76 61 69 6c 61 62 6c 65 20 61 6c | plain.text.emails...Available.al |
| 1660 | 74 65 72 6e 61 74 69 76 65 73 20 61 72 65 20 6c 69 73 74 65 64 20 69 6e 20 60 6f 72 67 2d 6d 73 | ternatives.are.listed.in.`org-ms |
| 1680 | 67 2d 61 6c 74 65 72 6e 61 74 69 76 65 2d 65 78 70 6f 72 74 65 72 73 27 2e 22 0a 20 20 3a 74 79 | g-alternative-exporters'."...:ty |
| 16a0 | 70 65 20 27 28 63 68 6f 69 63 65 20 28 6c 69 73 74 20 73 79 6d 62 6f 6c 29 0a 09 09 20 28 61 6c | pe.'(choice.(list.symbol)....(al |
| 16c0 | 69 73 74 20 3a 6b 65 79 2d 74 79 70 65 20 73 79 6d 62 6f 6c 20 3a 76 61 6c 75 65 2d 74 79 70 65 | ist.:key-type.symbol.:value-type |
| 16e0 | 20 28 72 65 70 65 61 74 20 73 79 6d 62 6f 6c 29 29 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 | .(repeat.symbol))))..(defcustom. |
| 1700 | 6f 72 67 2d 6d 73 67 2d 67 72 65 65 74 69 6e 67 2d 66 6d 74 20 6e 69 6c 0a 20 20 22 4d 61 69 6c | org-msg-greeting-fmt.nil..."Mail |
| 1720 | 20 67 72 65 65 74 69 6e 67 20 66 6f 72 6d 61 74 2e 0a 49 66 20 69 74 20 63 6f 6e 74 61 69 6e 73 | .greeting.format..If.it.contains |
| 1740 | 20 61 20 27 25 73 27 20 66 6f 72 6d 61 74 2c 20 27 25 73 27 20 69 73 20 72 65 70 6c 61 63 65 64 | .a.'%s'.format,.'%s'.is.replaced |
| 1760 | 20 77 69 74 68 20 74 68 65 20 66 69 72 73 74 0a 6e 61 6d 65 20 6f 66 20 74 68 65 20 70 65 72 73 | .with.the.first.name.of.the.pers |
| 1780 | 6f 6e 20 79 6f 75 20 61 72 65 20 72 65 70 6c 79 69 6e 67 20 74 6f 20 77 69 74 68 20 61 20 73 70 | on.you.are.replying.to.with.a.sp |
| 17a0 | 61 63 65 20 70 72 65 66 69 78 2e 0a 0a 45 78 61 6d 70 6c 65 3a 20 5c 22 48 69 25 73 2c 5c 22 0a | ace.prefix...Example:.\"Hi%s,\". |
| 17c0 | 69 73 20 72 65 70 6c 61 63 65 64 20 62 79 20 65 69 74 68 65 72 20 5c 22 48 69 20 4d 61 72 6b 2c | is.replaced.by.either.\"Hi.Mark, |
| 17e0 | 5c 22 20 6f 72 20 5c 22 48 69 2c 5c 22 2e 22 0a 20 20 3a 74 79 70 65 20 27 28 73 74 72 69 6e 67 | \".or.\"Hi,\"."...:type.'(string |
| 1800 | 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 6f 72 67 2d 6d 73 67 2d 72 65 63 69 70 69 65 6e 74 | ))..(defcustom.org-msg-recipient |
| 1820 | 2d 6e 61 6d 65 73 20 27 28 29 0a 20 20 22 4c 69 73 74 20 6f 66 20 72 65 63 69 70 69 65 6e 74 73 | -names.'()..."List.of.recipients |
| 1840 | 20 70 72 65 66 65 72 72 65 64 20 6e 61 6d 65 73 2e 0a 54 68 65 20 61 75 74 6f 6d 61 74 69 63 20 | .preferred.names..The.automatic. |
| 1860 | 72 65 70 6c 61 63 65 6d 65 6e 74 20 6f 66 20 27 25 73 27 20 66 6f 72 6d 61 74 20 69 6e 0a 60 6f | replacement.of.'%s'.format.in.`o |
| 1880 | 72 67 2d 6d 73 67 2d 67 72 65 65 74 69 6e 67 2d 66 6d 74 27 20 69 73 20 6e 6f 74 20 61 6c 77 61 | rg-msg-greeting-fmt'.is.not.alwa |
| 18a0 | 79 73 20 69 64 65 61 6c 2e 20 20 53 6f 6d 65 20 65 6d 61 69 6c 20 61 64 64 72 65 73 73 65 73 0a | ys.ideal...Some.email.addresses. |
| 18c0 | 64 6f 20 6e 6f 74 20 69 6e 63 6c 75 64 65 20 74 68 65 20 61 63 74 75 61 6c 20 72 65 63 69 70 69 | do.not.include.the.actual.recipi |
| 18e0 | 65 6e 74 20 6e 61 6d 65 20 6f 72 20 74 68 69 73 20 72 65 63 69 70 69 65 6e 74 20 77 61 6e 74 73 | ent.name.or.this.recipient.wants |
| 1900 | 0a 74 6f 20 62 65 20 63 61 6c 6c 65 64 20 77 69 74 68 20 61 6e 6f 74 68 65 72 20 6e 61 6d 65 2c | .to.be.called.with.another.name, |
| 1920 | 20 61 6e 20 61 63 72 6f 6e 79 6d 20 6f 72 20 69 74 73 20 6e 61 6d 65 20 68 61 73 0a 61 63 63 65 | .an.acronym.or.its.name.has.acce |
| 1940 | 6e 74 73 2e 20 54 68 69 73 20 76 61 72 69 61 62 6c 65 20 63 61 6e 20 62 65 20 75 73 65 64 20 74 | nts..This.variable.can.be.used.t |
| 1960 | 6f 20 73 70 65 63 69 66 79 20 74 68 65 73 65 20 65 78 63 65 70 74 69 6f 6e 73 2e 0a 0a 45 78 61 | o.specify.these.exceptions...Exa |
| 1980 | 6d 70 6c 65 3a 20 28 28 5c 22 6a 65 72 65 6d 79 2e 63 6f 6d 70 6f 73 74 65 6c 6c 61 40 67 6d 61 | mple:.((\"jeremy.compostella@gma |
| 19a0 | 69 6c 2e 63 6f 6d 5c 22 20 2e 20 5c 22 4a c3 a9 72 c3 a9 6d 79 5c 22 29 29 22 0a 20 20 3a 74 79 | il.com\"...\"J..r..my\"))"...:ty |
| 19c0 | 70 65 20 27 28 6c 69 73 74 20 28 63 6f 6e 73 20 73 74 72 69 6e 67 20 73 74 72 69 6e 67 29 29 29 | pe.'(list.(cons.string.string))) |
| 19e0 | 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 6f 72 67 2d 6d 73 67 2d 67 72 65 65 74 69 6e 67 2d 6e 61 | ..(defcustom.org-msg-greeting-na |
| 1a00 | 6d 65 2d 6c 69 6d 69 74 20 31 0a 20 20 22 4d 61 78 69 6d 75 6d 20 6e 75 6d 62 65 72 20 6f 66 20 | me-limit.1..."Maximum.number.of. |
| 1a20 | 72 65 63 69 70 69 65 6e 74 20 66 69 72 73 74 20 6e 61 6d 65 20 66 6f 72 20 74 68 65 20 67 72 65 | recipient.first.name.for.the.gre |
| 1a40 | 65 74 69 6e 67 20 66 6f 72 6d 61 74 2e 0a 49 66 20 72 65 70 6c 79 69 6e 67 20 74 6f 20 61 6e 20 | eting.format..If.replying.to.an. |
| 1a60 | 65 6d 61 69 6c 20 66 6f 72 20 77 68 69 63 68 20 74 68 65 20 27 54 6f 27 20 66 69 65 6c 64 20 63 | email.for.which.the.'To'.field.c |
| 1a80 | 6f 6e 74 61 69 6e 73 20 6d 6f 72 65 0a 74 68 61 6e 20 6f 6e 65 20 72 65 63 69 70 69 65 6e 74 20 | ontains.more.than.one.recipient. |
| 1aa0 | 61 6e 64 20 74 68 65 20 60 6f 72 67 2d 6d 73 67 2d 67 72 65 65 74 69 6e 67 2d 66 6d 74 27 20 63 | and.the.`org-msg-greeting-fmt'.c |
| 1ac0 | 6f 6e 74 61 69 6e 73 20 61 20 27 25 73 27 0a 66 6f 72 6d 61 74 2c 20 74 68 69 73 20 76 61 72 69 | ontains.a.'%s'.format,.this.vari |
| 1ae0 | 61 62 6c 65 20 6c 69 6d 69 74 73 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 72 65 63 69 70 69 | able.limits.the.number.of.recipi |
| 1b00 | 65 6e 74 20 66 69 72 73 74 20 6e 61 6d 65 0a 75 73 65 64 20 61 73 20 61 20 72 65 70 6c 61 63 65 | ent.first.name.used.as.a.replace |
| 1b20 | 6d 65 6e 74 20 6f 66 20 74 68 65 20 27 25 73 27 20 66 6f 72 6d 61 74 2e 20 20 6e 69 6c 20 6d 65 | ment.of.the.'%s'.format...nil.me |
| 1b40 | 61 6e 73 20 75 6e 6c 69 6d 69 74 65 64 2e 22 0a 20 20 3a 74 79 70 65 20 27 28 69 6e 74 65 67 65 | ans.unlimited."...:type.'(intege |
| 1b60 | 72 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 6f 72 67 2d 6d 73 67 2d 67 72 65 65 74 69 6e 67 | r))..(defcustom.org-msg-greeting |
| 1b80 | 2d 66 6d 74 2d 6d 61 69 6c 74 6f 20 6e 69 6c 0a 20 20 22 44 65 66 69 6e 65 20 74 68 65 20 66 6f | -fmt-mailto.nil..."Define.the.fo |
| 1ba0 | 72 6d 61 74 20 62 65 68 61 76 69 6f 72 20 66 6f 72 20 72 65 63 69 70 69 65 6e 74 20 67 72 65 65 | rmat.behavior.for.recipient.gree |
| 1bc0 | 74 69 6e 67 2e 0a 49 66 20 74 20 61 6e 64 20 60 6f 72 67 2d 6d 73 67 2d 67 72 65 65 74 69 6e 67 | ting..If.t.and.`org-msg-greeting |
| 1be0 | 2d 66 6d 74 27 20 63 6f 6e 74 61 69 6e 73 20 61 20 27 25 73 27 20 74 68 65 20 72 65 63 69 70 69 | -fmt'.contains.a.'%s'.the.recipi |
| 1c00 | 65 6e 74 0a 6e 61 6d 65 20 69 73 20 66 6f 72 6d 61 74 74 65 64 20 61 73 20 61 20 6d 61 69 6c 74 | ent.name.is.formatted.as.a.mailt |
| 1c20 | 6f 20 6c 69 6e 6b 2e 22 0a 20 20 3a 74 79 70 65 20 27 28 62 6f 6f 6c 65 61 6e 29 29 0a 0a 28 64 | o.link."...:type.'(boolean))..(d |
| 1c40 | 65 66 63 75 73 74 6f 6d 20 6f 72 67 2d 6d 73 67 2d 73 69 67 6e 61 74 75 72 65 20 6e 69 6c 0a 20 | efcustom.org-msg-signature.nil.. |
| 1c60 | 20 22 4d 61 69 6c 20 73 69 67 6e 61 74 75 72 65 20 73 74 72 69 6e 67 20 61 70 70 65 6e 64 65 64 | ."Mail.signature.string.appended |
| 1c80 | 20 69 66 20 6e 6f 74 20 6e 69 6c 2e 0a 54 68 65 20 70 61 72 74 20 69 6e 20 74 68 65 20 73 69 67 | .if.not.nil..The.part.in.the.sig |
| 1ca0 | 6e 61 74 75 72 65 20 62 6c 6f 63 6b 20 67 65 74 73 20 61 70 70 6c 69 65 64 20 74 68 65 20 5c 22 | nature.block.gets.applied.the.\" |
| 1cc0 | 73 69 67 6e 61 74 75 72 65 5c 22 0a 43 53 53 20 73 74 79 6c 65 2e 0a 0a 45 78 61 6d 70 6c 65 3a | signature\".CSS.style...Example: |
| 1ce0 | 0a 5c 22 5c 6e 5c 6e 52 65 67 61 72 64 73 2c 5c 6e 5c 6e 23 2b 62 65 67 69 6e 5f 73 69 67 6e 61 | .\"\n\nRegards,\n\n#+begin_signa |
| 1d00 | 74 75 72 65 5c 6e 2d 2d 20 2a 59 6f 75 72 20 6e 61 6d 65 2a 5c 6e 23 2b 65 6e 64 5f 73 69 67 6e | ture\n--.*Your.name*\n#+end_sign |
| 1d20 | 61 74 75 72 65 5c 22 22 0a 20 20 3a 74 79 70 65 20 27 28 73 74 72 69 6e 67 29 29 0a 0a 28 64 65 | ature\""...:type.'(string))..(de |
| 1d40 | 66 63 75 73 74 6f 6d 20 6f 72 67 2d 6d 73 67 2d 70 6f 73 74 69 6e 67 2d 73 74 79 6c 65 20 27 74 | fcustom.org-msg-posting-style.'t |
| 1d60 | 6f 70 2d 70 6f 73 74 69 6e 67 0a 20 20 22 44 65 66 69 6e 65 20 74 68 65 20 70 6f 73 74 69 6e 67 | op-posting..."Define.the.posting |
| 1d80 | 20 73 74 79 6c 65 20 66 6f 72 20 48 54 4d 4c 20 72 65 70 6c 69 65 73 2e 0a 43 61 6e 20 62 65 20 | .style.for.HTML.replies..Can.be. |
| 1da0 | 65 69 74 68 65 72 20 60 74 6f 70 2d 70 6f 73 74 69 6e 67 27 20 6f 72 20 6e 69 6c 2e 22 0a 20 20 | either.`top-posting'.or.nil."... |
| 1dc0 | 3a 74 79 70 65 20 27 28 73 79 6d 62 6f 6c 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 6f 72 67 | :type.'(symbol))..(defcustom.org |
| 1de0 | 2d 6d 73 67 2d 75 6e 64 65 73 69 72 61 62 6c 65 2d 68 65 61 64 65 72 73 20 27 28 22 5e 61 74 74 | -msg-undesirable-headers.'("^att |
| 1e00 | 61 63 68 6d 65 6e 74 73 3f 24 22 29 0a 20 20 22 4c 69 73 74 20 6f 66 20 75 6e 64 65 73 69 72 61 | achments?$")..."List.of.undesira |
| 1e20 | 62 6c 65 20 68 65 61 64 65 72 20 74 6f 20 64 65 6c 65 74 65 20 66 72 6f 6d 20 74 68 65 20 6f 72 | ble.header.to.delete.from.the.or |
| 1e40 | 69 67 69 6e 61 6c 20 65 6d 61 69 6c 2e 22 0a 20 20 3a 74 79 70 65 20 27 28 6c 69 73 74 20 72 65 | iginal.email."...:type.'(list.re |
| 1e60 | 67 65 78 70 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 6f 72 67 2d 6d 73 67 2d 64 6e 64 2d 70 | gexp))..(defcustom.org-msg-dnd-p |
| 1e80 | 72 6f 74 6f 63 6f 6c 2d 61 6c 69 73 74 0a 20 20 27 28 28 22 5e 66 69 6c 65 3a 22 20 2e 20 6f 72 | rotocol-alist...'(("^file:"...or |
| 1ea0 | 67 2d 6d 73 67 2d 64 6e 64 2d 68 61 6e 64 6c 65 2d 66 69 6c 65 29 29 0a 20 20 22 54 68 65 20 66 | g-msg-dnd-handle-file))..."The.f |
| 1ec0 | 75 6e 63 74 69 6f 6e 73 20 74 6f 20 63 61 6c 6c 20 77 68 65 6e 20 61 20 66 69 6c 65 20 64 72 6f | unctions.to.call.when.a.file.dro |
| 1ee0 | 70 20 69 73 20 6d 61 64 65 2e 22 0a 20 20 3a 74 79 70 65 20 27 28 72 65 70 65 61 74 20 28 63 6f | p.is.made."...:type.'(repeat.(co |
| 1f00 | 6e 73 20 28 72 65 67 65 78 70 29 20 28 66 75 6e 63 74 69 6f 6e 29 29 29 29 0a 0a 28 64 65 66 63 | ns.(regexp).(function))))..(defc |
| 1f20 | 75 73 74 6f 6d 20 6f 72 67 2d 6d 73 67 2d 61 74 74 61 63 68 65 64 2d 66 69 6c 65 2d 72 65 66 65 | ustom.org-msg-attached-file-refe |
| 1f40 | 72 65 6e 63 65 0a 20 20 22 61 74 74 61 63 68 5b 61 2d 7a 5d 2a 5c 5c 7c 65 6e 63 6c 6f 73 65 22 | rence..."attach[a-z]*\\|enclose" |
| 1f60 | 0a 20 20 22 52 65 67 75 6c 61 72 20 65 78 70 72 65 73 73 69 6f 6e 20 64 65 74 65 63 74 69 6e 67 | ..."Regular.expression.detecting |
| 1f80 | 20 61 20 72 65 66 65 72 65 6e 63 65 20 74 6f 20 61 6e 20 61 74 74 61 63 68 65 64 20 66 69 6c 65 | .a.reference.to.an.attached.file |
| 1fa0 | 2e 22 0a 20 20 3a 74 79 70 65 20 27 72 65 67 65 78 70 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d | ."...:type.'regexp)..(defun.org- |
| 1fc0 | 6d 73 67 2d 6c 69 67 68 74 65 6e 20 28 63 6f 6c 6f 72 29 0a 20 20 22 4d 61 6b 65 20 61 20 63 6f | msg-lighten.(color)..."Make.a.co |
| 1fe0 | 6c 6f 72 20 6c 69 67 68 74 65 72 20 62 79 20 61 20 32 30 25 2e 22 0a 20 20 28 61 70 70 6c 79 20 | lor.lighter.by.a.20%."...(apply. |
| 2000 | 27 63 6f 6c 6f 72 2d 72 67 62 2d 74 6f 2d 68 65 78 0a 09 20 28 61 70 70 65 6e 64 0a 09 20 20 28 | 'color-rgb-to-hex...(append....( |
| 2020 | 61 70 70 6c 79 20 27 63 6f 6c 6f 72 2d 68 73 6c 2d 74 6f 2d 72 67 62 0a 09 09 20 28 61 70 70 6c | apply.'color-hsl-to-rgb....(appl |
| 2040 | 79 20 27 63 6f 6c 6f 72 2d 6c 69 67 68 74 65 6e 2d 68 73 6c 0a 09 09 09 28 61 70 70 65 6e 64 0a | y.'color-lighten-hsl....(append. |
| 2060 | 09 09 09 20 28 61 70 70 6c 79 20 27 63 6f 6c 6f 72 2d 72 67 62 2d 74 6f 2d 68 73 6c 0a 09 09 09 | ....(apply.'color-rgb-to-hsl.... |
| 2080 | 09 28 63 6f 6c 6f 72 2d 6e 61 6d 65 2d 74 6f 2d 72 67 62 20 63 6f 6c 6f 72 29 29 0a 09 09 09 20 | .(color-name-to-rgb.color))..... |
| 20a0 | 28 6c 69 73 74 20 32 30 29 29 29 29 0a 09 20 20 28 6c 69 73 74 20 32 29 29 29 29 0a 0a 28 64 65 | (list.20))))....(list.2))))..(de |
| 20c0 | 66 63 6f 6e 73 74 20 6f 72 67 2d 6d 73 67 2d 64 65 66 61 75 6c 74 2d 73 74 79 6c 65 0a 20 20 28 | fconst.org-msg-default-style...( |
| 20e0 | 6c 65 74 2a 20 28 28 66 6f 6e 74 2d 66 61 6d 69 6c 79 20 27 28 66 6f 6e 74 2d 66 61 6d 69 6c 79 | let*.((font-family.'(font-family |
| 2100 | 20 2e 20 22 5c 22 41 72 69 61 6c 5c 22 22 29 29 0a 09 20 28 66 6f 6e 74 2d 73 69 7a 65 20 27 28 | ..."\"Arial\""))...(font-size.'( |
| 2120 | 66 6f 6e 74 2d 73 69 7a 65 20 2e 20 22 31 30 70 74 22 29 29 0a 09 20 28 66 6f 6e 74 20 60 28 2c | font-size..."10pt"))...(font.`(, |
| 2140 | 66 6f 6e 74 2d 66 61 6d 69 6c 79 20 2c 66 6f 6e 74 2d 73 69 7a 65 29 29 0a 09 20 28 6c 69 6e 65 | font-family.,font-size))...(line |
| 2160 | 2d 68 65 69 67 68 74 20 27 28 6c 69 6e 65 2d 68 65 69 67 68 74 20 2e 20 22 31 30 70 74 22 29 29 | -height.'(line-height..."10pt")) |
| 2180 | 0a 09 20 28 62 6f 6c 64 20 27 28 66 6f 6e 74 2d 77 65 69 67 68 74 20 2e 20 22 62 6f 6c 64 22 29 | ...(bold.'(font-weight..."bold") |
| 21a0 | 29 0a 09 20 28 74 68 65 6d 65 2d 63 6f 6c 6f 72 20 22 23 30 30 37 31 63 35 22 29 0a 09 20 28 63 | )...(theme-color."#0071c5")...(c |
| 21c0 | 6f 6c 6f 72 20 60 28 63 6f 6c 6f 72 20 2e 20 2c 74 68 65 6d 65 2d 63 6f 6c 6f 72 29 29 0a 09 20 | olor.`(color...,theme-color))... |
| 21e0 | 28 74 61 62 6c 65 20 60 28 2c 40 66 6f 6e 74 20 28 6d 61 72 67 69 6e 2d 74 6f 70 20 2e 20 22 30 | (table.`(,@font.(margin-top..."0 |
| 2200 | 70 78 22 29 29 29 0a 09 20 28 66 74 6c 2d 6e 75 6d 62 65 72 20 60 28 2c 40 66 6f 6e 74 20 2c 63 | px")))...(ftl-number.`(,@font.,c |
| 2220 | 6f 6c 6f 72 20 2c 62 6f 6c 64 20 28 74 65 78 74 2d 61 6c 69 67 6e 20 2e 20 22 6c 65 66 74 22 29 | olor.,bold.(text-align..."left") |
| 2240 | 29 29 0a 09 20 28 69 6e 6c 69 6e 65 2d 6d 6f 64 65 73 20 27 28 61 73 6c 20 63 20 63 2b 2b 20 63 | ))...(inline-modes.'(asl.c.c++.c |
| 2260 | 6f 6e 66 20 63 70 70 20 63 73 76 20 64 69 66 66 20 64 69 74 61 61 20 65 6d 61 63 73 2d 6c 69 73 | onf.cpp.csv.diff.ditaa.emacs-lis |
| 2280 | 70 0a 09 09 09 20 20 20 20 20 66 75 6e 64 61 6d 65 6e 74 61 6c 20 69 6e 69 20 6a 73 6f 6e 20 6d | p.........fundamental.ini.json.m |
| 22a0 | 61 6b 65 66 69 6c 65 20 6d 61 6e 20 6f 72 67 20 70 6c 61 6e 74 75 6d 6c 0a 09 09 09 20 20 20 20 | akefile.man.org.plantuml........ |
| 22c0 | 20 70 79 74 68 6f 6e 20 73 68 20 78 6d 6c 29 29 0a 09 20 28 69 6e 6c 69 6e 65 2d 73 72 63 20 60 | .python.sh.xml))...(inline-src.` |
| 22e0 | 28 28 63 6f 6c 6f 72 20 2e 20 2c 28 66 61 63 65 2d 66 6f 72 65 67 72 6f 75 6e 64 20 27 64 65 66 | ((color...,(face-foreground.'def |
| 2300 | 61 75 6c 74 29 29 0a 09 09 20 20 20 20 20 20 20 28 62 61 63 6b 67 72 6f 75 6e 64 2d 63 6f 6c 6f | ault))..........(background-colo |
| 2320 | 72 20 2e 20 2c 28 66 61 63 65 2d 62 61 63 6b 67 72 6f 75 6e 64 20 27 64 65 66 61 75 6c 74 29 29 | r...,(face-background.'default)) |
| 2340 | 29 29 0a 09 20 28 63 6f 64 65 2d 73 72 63 0a 09 20 20 28 6d 61 70 63 61 72 20 28 6c 61 6d 62 64 | ))...(code-src....(mapcar.(lambd |
| 2360 | 61 20 28 6d 6f 64 65 29 0a 09 09 20 20 20 20 60 28 63 6f 64 65 20 2c 28 69 6e 74 65 72 6e 20 28 | a.(mode).......`(code.,(intern.( |
| 2380 | 63 6f 6e 63 61 74 20 22 73 72 63 20 73 72 63 2d 22 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 6d | concat."src.src-".(symbol-name.m |
| 23a0 | 6f 64 65 29 29 29 0a 09 09 09 20 20 20 2c 69 6e 6c 69 6e 65 2d 73 72 63 29 29 0a 09 09 20 20 69 | ode))).......,inline-src)).....i |
| 23c0 | 6e 6c 69 6e 65 2d 6d 6f 64 65 73 29 29 0a 09 20 28 62 61 73 65 2d 71 75 6f 74 65 20 27 28 28 70 | nline-modes))...(base-quote.'((p |
| 23e0 | 61 64 64 69 6e 67 2d 6c 65 66 74 20 2e 20 22 35 70 78 22 29 20 28 6d 61 72 67 69 6e 2d 6c 65 66 | adding-left..."5px").(margin-lef |
| 2400 | 74 20 2e 20 22 31 30 70 78 22 29 0a 09 09 20 20 20 20 20 20 20 28 6d 61 72 67 69 6e 2d 74 6f 70 | t..."10px")..........(margin-top |
| 2420 | 20 2e 20 22 31 30 70 78 22 29 20 28 6d 61 72 67 69 6e 2d 62 6f 74 74 6f 6d 20 2e 20 22 30 22 29 | ..."10px").(margin-bottom..."0") |
| 2440 | 0a 09 09 20 20 20 20 20 20 20 28 66 6f 6e 74 2d 73 74 79 6c 65 20 2e 20 22 69 74 61 6c 69 63 22 | ..........(font-style..."italic" |
| 2460 | 29 20 28 62 61 63 6b 67 72 6f 75 6e 64 20 2e 20 22 23 66 39 66 39 66 39 22 29 29 29 0a 09 20 28 | ).(background..."#f9f9f9")))...( |
| 2480 | 71 75 6f 74 65 2d 70 61 6c 65 74 74 65 20 27 28 22 23 33 32 34 65 37 32 22 20 22 23 36 61 33 61 | quote-palette.'("#324e72"."#6a3a |
| 24a0 | 34 63 22 20 22 23 37 61 34 39 30 30 22 20 22 23 66 66 33 34 66 66 22 0a 09 09 09 20 20 22 23 66 | 4c"."#7a4900"."#ff34ff"......"#f |
| 24c0 | 66 34 61 34 36 22 20 22 23 30 30 38 39 34 31 22 20 22 23 30 30 36 66 61 36 22 20 22 23 61 33 30 | f4a46"."#008941"."#006fa6"."#a30 |
| 24e0 | 30 35 39 22 0a 09 09 09 20 20 22 23 66 66 64 62 65 35 22 20 22 23 30 30 30 30 30 30 22 20 22 23 | 059"......"#ffdbe5"."#000000"."# |
| 2500 | 30 30 30 30 61 36 22 20 22 23 36 33 66 66 61 63 22 29 29 0a 09 20 28 71 75 6f 74 65 73 0a 09 20 | 0000a6"."#63ffac"))...(quotes... |
| 2520 | 20 28 6d 61 70 63 61 72 20 28 6c 61 6d 62 64 61 20 28 78 29 0a 09 09 20 20 20 20 28 6c 65 74 20 | .(mapcar.(lambda.(x).......(let. |
| 2540 | 28 28 63 20 28 6e 74 68 20 78 20 71 75 6f 74 65 2d 70 61 6c 65 74 74 65 29 29 29 0a 09 09 20 20 | ((c.(nth.x.quote-palette)))..... |
| 2560 | 20 20 20 20 60 28 62 6c 6f 63 6b 71 75 6f 74 65 20 2c 28 69 6e 74 65 72 6e 20 28 66 6f 72 6d 61 | ....`(blockquote.,(intern.(forma |
| 2580 | 74 20 22 71 75 6f 74 65 25 64 22 20 28 31 2b 20 78 29 29 29 0a 09 09 09 09 20 20 20 28 2c 40 62 | t."quote%d".(1+.x)))........(,@b |
| 25a0 | 61 73 65 2d 71 75 6f 74 65 0a 09 09 09 09 20 20 20 20 28 63 6f 6c 6f 72 20 2e 20 2c 63 29 0a 09 | ase-quote.........(color...,c).. |
| 25c0 | 09 09 09 20 20 20 20 28 62 6f 72 64 65 72 2d 6c 65 66 74 20 2e 20 2c 28 63 6f 6e 63 61 74 20 22 | .......(border-left...,(concat." |
| 25e0 | 33 70 78 20 73 6f 6c 69 64 20 22 0a 09 09 09 09 09 09 20 20 20 20 20 20 28 6f 72 67 2d 6d 73 67 | 3px.solid.".............(org-msg |
| 2600 | 2d 6c 69 67 68 74 65 6e 20 63 29 29 29 29 29 29 29 0a 09 09 20 20 28 6e 75 6d 62 65 72 2d 73 65 | -lighten.c))))))).....(number-se |
| 2620 | 71 75 65 6e 63 65 20 30 20 28 31 2d 20 28 6c 65 6e 67 74 68 20 71 75 6f 74 65 2d 70 61 6c 65 74 | quence.0.(1-.(length.quote-palet |
| 2640 | 74 65 29 29 29 29 29 29 0a 20 20 60 28 28 64 65 6c 20 6e 69 6c 20 28 2c 40 66 6f 6e 74 20 28 63 | te))))))...`((del.nil.(,@font.(c |
| 2660 | 6f 6c 6f 72 20 2e 20 22 67 72 65 79 22 29 20 28 62 6f 72 64 65 72 2d 6c 65 66 74 20 2e 20 22 6e | olor..."grey").(border-left..."n |
| 2680 | 6f 6e 65 22 29 0a 09 20 20 20 20 20 20 28 74 65 78 74 2d 64 65 63 6f 72 61 74 69 6f 6e 20 2e 20 | one")........(text-decoration... |
| 26a0 | 22 6c 69 6e 65 2d 74 68 72 6f 75 67 68 22 29 20 28 6d 61 72 67 69 6e 2d 62 6f 74 74 6f 6d 20 2e | "line-through").(margin-bottom.. |
| 26c0 | 20 22 30 70 78 22 29 0a 09 20 20 20 20 20 20 28 6d 61 72 67 69 6e 2d 74 6f 70 20 2e 20 22 31 30 | ."0px")........(margin-top..."10 |
| 26e0 | 70 78 22 29 20 28 6c 69 6e 65 2d 68 65 69 67 68 74 20 2e 20 22 31 31 70 74 22 29 29 29 0a 20 20 | px").(line-height..."11pt")))... |
| 2700 | 20 20 28 61 20 6e 69 6c 20 28 2c 63 6f 6c 6f 72 29 29 0a 20 20 20 20 28 61 20 72 65 70 6c 79 2d | ..(a.nil.(,color)).....(a.reply- |
| 2720 | 68 65 61 64 65 72 20 28 28 63 6f 6c 6f 72 20 2e 20 22 62 6c 61 63 6b 22 29 20 28 74 65 78 74 2d | header.((color..."black").(text- |
| 2740 | 64 65 63 6f 72 61 74 69 6f 6e 20 2e 20 22 6e 6f 6e 65 22 29 29 29 0a 20 20 20 20 28 64 69 76 20 | decoration..."none"))).....(div. |
| 2760 | 72 65 70 6c 79 2d 68 65 61 64 65 72 20 28 28 70 61 64 64 69 6e 67 20 2e 20 22 33 2e 30 70 74 20 | reply-header.((padding..."3.0pt. |
| 2780 | 30 69 6e 20 30 69 6e 20 30 69 6e 22 29 0a 09 09 20 20 20 20 20 20 20 28 62 6f 72 64 65 72 2d 74 | 0in.0in.0in")..........(border-t |
| 27a0 | 6f 70 20 2e 20 22 73 6f 6c 69 64 20 23 65 31 65 31 65 31 20 31 2e 30 70 74 22 29 0a 09 09 20 20 | op..."solid.#e1e1e1.1.0pt")..... |
| 27c0 | 20 20 20 20 20 28 6d 61 72 67 69 6e 2d 62 6f 74 74 6f 6d 20 2e 20 22 32 30 70 78 22 29 29 29 0a | .....(margin-bottom..."20px"))). |
| 27e0 | 20 20 20 20 28 73 70 61 6e 20 75 6e 64 65 72 6c 69 6e 65 20 28 28 74 65 78 74 2d 64 65 63 6f 72 | ....(span.underline.((text-decor |
| 2800 | 61 74 69 6f 6e 20 2e 20 22 75 6e 64 65 72 6c 69 6e 65 22 29 29 29 0a 20 20 20 20 28 6c 69 20 6e | ation..."underline"))).....(li.n |
| 2820 | 69 6c 20 28 2c 40 66 6f 6e 74 20 2c 6c 69 6e 65 2d 68 65 69 67 68 74 20 28 6d 61 72 67 69 6e 2d | il.(,@font.,line-height.(margin- |
| 2840 | 62 6f 74 74 6f 6d 20 2e 20 22 30 70 78 22 29 0a 09 20 20 20 20 20 28 6d 61 72 67 69 6e 2d 74 6f | bottom..."0px").......(margin-to |
| 2860 | 70 20 2e 20 22 32 70 78 22 29 29 29 0a 20 20 20 20 28 6e 69 6c 20 6f 72 67 2d 75 6c 20 28 28 6c | p..."2px"))).....(nil.org-ul.((l |
| 2880 | 69 73 74 2d 73 74 79 6c 65 2d 74 79 70 65 20 2e 20 22 73 71 75 61 72 65 22 29 29 29 0a 20 20 20 | ist-style-type..."square"))).... |
| 28a0 | 20 28 6e 69 6c 20 6f 72 67 2d 6f 6c 20 28 2c 40 66 6f 6e 74 20 2c 6c 69 6e 65 2d 68 65 69 67 68 | .(nil.org-ol.(,@font.,line-heigh |
| 28c0 | 74 20 28 6d 61 72 67 69 6e 2d 62 6f 74 74 6f 6d 20 2e 20 22 30 70 78 22 29 0a 09 09 20 28 6d 61 | t.(margin-bottom..."0px")....(ma |
| 28e0 | 72 67 69 6e 2d 74 6f 70 20 2e 20 22 30 70 78 22 29 20 28 6d 61 72 67 69 6e 2d 6c 65 66 74 20 2e | rgin-top..."0px").(margin-left.. |
| 2900 | 20 22 33 30 70 78 22 29 0a 09 09 20 28 70 61 64 64 69 6e 67 2d 74 6f 70 20 2e 20 22 30 70 78 22 | ."30px")....(padding-top..."0px" |
| 2920 | 29 20 28 70 61 64 64 69 6e 67 2d 6c 65 66 74 20 2e 20 22 35 70 78 22 29 29 29 0a 20 20 20 20 28 | ).(padding-left..."5px"))).....( |
| 2940 | 6e 69 6c 20 73 69 67 6e 61 74 75 72 65 20 28 2c 40 66 6f 6e 74 20 28 6d 61 72 67 69 6e 2d 62 6f | nil.signature.(,@font.(margin-bo |
| 2960 | 74 74 6f 6d 20 2e 20 22 32 30 70 78 22 29 29 29 0a 20 20 20 20 28 62 6c 6f 63 6b 71 75 6f 74 65 | ttom..."20px"))).....(blockquote |
| 2980 | 20 71 75 6f 74 65 30 20 2c 28 61 70 70 65 6e 64 20 62 61 73 65 2d 71 75 6f 74 65 20 27 28 28 62 | .quote0.,(append.base-quote.'((b |
| 29a0 | 6f 72 64 65 72 2d 6c 65 66 74 20 2e 20 22 33 70 78 20 73 6f 6c 69 64 20 23 63 63 63 22 29 29 29 | order-left..."3px.solid.#ccc"))) |
| 29c0 | 29 0a 20 20 20 20 2c 40 71 75 6f 74 65 73 0a 20 20 20 20 28 63 6f 64 65 20 6e 69 6c 20 28 2c 66 | ).....,@quotes.....(code.nil.(,f |
| 29e0 | 6f 6e 74 2d 73 69 7a 65 20 28 66 6f 6e 74 2d 66 61 6d 69 6c 79 20 2e 20 22 6d 6f 6e 6f 73 70 61 | ont-size.(font-family..."monospa |
| 2a00 | 63 65 22 29 20 28 62 61 63 6b 67 72 6f 75 6e 64 20 2e 20 22 23 66 39 66 39 66 39 22 29 29 29 0a | ce").(background..."#f9f9f9"))). |
| 2a20 | 20 20 20 20 2c 40 63 6f 64 65 2d 73 72 63 0a 20 20 20 20 28 6e 69 6c 20 6c 69 6e 65 6e 72 20 28 | ....,@code-src.....(nil.linenr.( |
| 2a40 | 28 70 61 64 64 69 6e 67 2d 72 69 67 68 74 20 2e 20 22 31 65 6d 22 29 0a 09 09 20 28 63 6f 6c 6f | (padding-right..."1em")....(colo |
| 2a60 | 72 20 2e 20 22 62 6c 61 63 6b 22 29 0a 09 09 20 28 62 61 63 6b 67 72 6f 75 6e 64 2d 63 6f 6c 6f | r..."black")....(background-colo |
| 2a80 | 72 20 2e 20 22 23 61 61 61 61 61 61 22 29 29 29 0a 20 20 20 20 28 70 72 65 20 6e 69 6c 20 28 28 | r..."#aaaaaa"))).....(pre.nil.(( |
| 2aa0 | 6c 69 6e 65 2d 68 65 69 67 68 74 20 2e 20 22 31 32 70 74 22 29 0a 09 20 20 20 20 20 20 2c 40 69 | line-height..."12pt")........,@i |
| 2ac0 | 6e 6c 69 6e 65 2d 73 72 63 0a 09 20 20 20 20 20 20 28 6d 61 72 67 69 6e 20 2e 20 22 30 70 78 22 | nline-src........(margin..."0px" |
| 2ae0 | 29 0a 09 20 20 20 20 20 20 28 66 6f 6e 74 2d 73 69 7a 65 20 2e 20 22 39 70 74 22 29 0a 09 20 20 | )........(font-size..."9pt").... |
| 2b00 | 20 20 20 20 28 66 6f 6e 74 2d 66 61 6d 69 6c 79 20 2e 20 22 6d 6f 6e 6f 73 70 61 63 65 22 29 29 | ....(font-family..."monospace")) |
| 2b20 | 29 0a 20 20 20 20 28 64 69 76 20 6f 72 67 2d 73 72 63 2d 63 6f 6e 74 61 69 6e 65 72 20 28 28 6d | ).....(div.org-src-container.((m |
| 2b40 | 61 72 67 69 6e 2d 74 6f 70 20 2e 20 22 31 30 70 78 22 29 29 29 0a 20 20 20 20 28 6e 69 6c 20 66 | argin-top..."10px"))).....(nil.f |
| 2b60 | 69 67 75 72 65 2d 6e 75 6d 62 65 72 20 2c 66 74 6c 2d 6e 75 6d 62 65 72 29 0a 20 20 20 20 28 6e | igure-number.,ftl-number).....(n |
| 2b80 | 69 6c 20 74 61 62 6c 65 2d 6e 75 6d 62 65 72 29 0a 20 20 20 20 28 63 61 70 74 69 6f 6e 20 6e 69 | il.table-number).....(caption.ni |
| 2ba0 | 6c 20 28 28 74 65 78 74 2d 61 6c 69 67 6e 20 2e 20 22 6c 65 66 74 22 29 0a 09 09 20 20 28 62 61 | l.((text-align..."left").....(ba |
| 2bc0 | 63 6b 67 72 6f 75 6e 64 20 2e 20 2c 74 68 65 6d 65 2d 63 6f 6c 6f 72 29 0a 09 09 20 20 28 63 6f | ckground...,theme-color).....(co |
| 2be0 | 6c 6f 72 20 2e 20 22 77 68 69 74 65 22 29 0a 09 09 20 20 2c 62 6f 6c 64 29 29 0a 20 20 20 20 28 | lor..."white").....,bold)).....( |
| 2c00 | 6e 69 6c 20 74 2d 61 62 6f 76 65 20 28 28 63 61 70 74 69 6f 6e 2d 73 69 64 65 20 2e 20 22 74 6f | nil.t-above.((caption-side..."to |
| 2c20 | 70 22 29 29 29 0a 20 20 20 20 28 6e 69 6c 20 74 2d 62 6f 74 74 6f 6d 20 28 28 63 61 70 74 69 6f | p"))).....(nil.t-bottom.((captio |
| 2c40 | 6e 2d 73 69 64 65 20 2e 20 22 62 6f 74 74 6f 6d 22 29 29 29 0a 20 20 20 20 28 6e 69 6c 20 6c 69 | n-side..."bottom"))).....(nil.li |
| 2c60 | 73 74 69 6e 67 2d 6e 75 6d 62 65 72 20 2c 66 74 6c 2d 6e 75 6d 62 65 72 29 0a 20 20 20 20 28 6e | sting-number.,ftl-number).....(n |
| 2c80 | 69 6c 20 66 69 67 75 72 65 20 2c 66 74 6c 2d 6e 75 6d 62 65 72 29 0a 20 20 20 20 28 6e 69 6c 20 | il.figure.,ftl-number).....(nil. |
| 2ca0 | 6f 72 67 2d 73 72 63 2d 6e 61 6d 65 20 2c 66 74 6c 2d 6e 75 6d 62 65 72 29 0a 0a 20 20 20 20 28 | org-src-name.,ftl-number)......( |
| 2cc0 | 74 61 62 6c 65 20 6e 69 6c 20 28 2c 40 74 61 62 6c 65 20 2c 6c 69 6e 65 2d 68 65 69 67 68 74 20 | table.nil.(,@table.,line-height. |
| 2ce0 | 28 62 6f 72 64 65 72 2d 63 6f 6c 6c 61 70 73 65 20 2e 20 22 63 6f 6c 6c 61 70 73 65 22 29 29 29 | (border-collapse..."collapse"))) |
| 2d00 | 0a 20 20 20 20 28 74 68 20 6e 69 6c 20 28 28 62 6f 72 64 65 72 20 2e 20 22 31 70 78 20 73 6f 6c | .....(th.nil.((border..."1px.sol |
| 2d20 | 69 64 20 77 68 69 74 65 22 29 0a 09 20 20 20 20 20 28 62 61 63 6b 67 72 6f 75 6e 64 2d 63 6f 6c | id.white").......(background-col |
| 2d40 | 6f 72 20 2e 20 2c 74 68 65 6d 65 2d 63 6f 6c 6f 72 29 0a 09 20 20 20 20 20 28 63 6f 6c 6f 72 20 | or...,theme-color).......(color. |
| 2d60 | 2e 20 22 77 68 69 74 65 22 29 0a 09 20 20 20 20 20 28 70 61 64 64 69 6e 67 2d 6c 65 66 74 20 2e | .."white").......(padding-left.. |
| 2d80 | 20 22 31 30 70 78 22 29 20 28 70 61 64 64 69 6e 67 2d 72 69 67 68 74 20 2e 20 22 31 30 70 78 22 | ."10px").(padding-right..."10px" |
| 2da0 | 29 29 29 0a 20 20 20 20 28 74 64 20 6e 69 6c 20 28 2c 40 74 61 62 6c 65 20 28 70 61 64 64 69 6e | ))).....(td.nil.(,@table.(paddin |
| 2dc0 | 67 2d 6c 65 66 74 20 2e 20 22 31 30 70 78 22 29 20 28 70 61 64 64 69 6e 67 2d 72 69 67 68 74 20 | g-left..."10px").(padding-right. |
| 2de0 | 2e 20 22 31 30 70 78 22 29 0a 09 09 20 20 20 20 20 28 62 61 63 6b 67 72 6f 75 6e 64 2d 63 6f 6c | .."10px")........(background-col |
| 2e00 | 6f 72 20 2e 20 22 23 66 39 66 39 66 39 22 29 20 28 62 6f 72 64 65 72 20 2e 20 22 31 70 78 20 73 | or..."#f9f9f9").(border..."1px.s |
| 2e20 | 6f 6c 69 64 20 77 68 69 74 65 22 29 29 29 0a 20 20 20 20 28 74 64 20 6f 72 67 2d 6c 65 66 74 20 | olid.white"))).....(td.org-left. |
| 2e40 | 28 28 74 65 78 74 2d 61 6c 69 67 6e 20 2e 20 22 6c 65 66 74 22 29 29 29 0a 20 20 20 20 28 74 64 | ((text-align..."left"))).....(td |
| 2e60 | 20 6f 72 67 2d 72 69 67 68 74 20 28 28 74 65 78 74 2d 61 6c 69 67 6e 20 2e 20 22 72 69 67 68 74 | .org-right.((text-align..."right |
| 2e80 | 22 29 29 29 0a 20 20 20 20 28 74 64 20 6f 72 67 2d 63 65 6e 74 65 72 20 28 28 74 65 78 74 2d 61 | "))).....(td.org-center.((text-a |
| 2ea0 | 6c 69 67 6e 20 2e 20 22 63 65 6e 74 65 72 22 29 29 29 0a 0a 20 20 20 20 28 64 69 76 20 6f 75 74 | lign..."center")))......(div.out |
| 2ec0 | 6c 69 6e 65 2d 74 65 78 74 2d 34 20 28 28 6d 61 72 67 69 6e 2d 6c 65 66 74 20 2e 20 22 31 35 70 | line-text-4.((margin-left..."15p |
| 2ee0 | 78 22 29 29 29 0a 20 20 20 20 28 64 69 76 20 6f 75 74 6c 69 6e 65 2d 34 20 28 28 6d 61 72 67 69 | x"))).....(div.outline-4.((margi |
| 2f00 | 6e 2d 6c 65 66 74 20 2e 20 22 31 30 70 78 22 29 29 29 0a 20 20 20 20 28 68 34 20 6e 69 6c 20 28 | n-left..."10px"))).....(h4.nil.( |
| 2f20 | 28 6d 61 72 67 69 6e 2d 62 6f 74 74 6f 6d 20 2e 20 22 30 70 78 22 29 20 28 66 6f 6e 74 2d 73 69 | (margin-bottom..."0px").(font-si |
| 2f40 | 7a 65 20 2e 20 22 31 31 70 74 22 29 0a 09 20 20 20 20 20 2c 66 6f 6e 74 2d 66 61 6d 69 6c 79 29 | ze..."11pt").......,font-family) |
| 2f60 | 29 0a 20 20 20 20 28 68 33 20 6e 69 6c 20 28 28 6d 61 72 67 69 6e 2d 62 6f 74 74 6f 6d 20 2e 20 | ).....(h3.nil.((margin-bottom... |
| 2f80 | 22 30 70 78 22 29 20 28 74 65 78 74 2d 64 65 63 6f 72 61 74 69 6f 6e 20 2e 20 22 75 6e 64 65 72 | "0px").(text-decoration..."under |
| 2fa0 | 6c 69 6e 65 22 29 0a 09 20 20 20 20 20 2c 63 6f 6c 6f 72 20 28 66 6f 6e 74 2d 73 69 7a 65 20 2e | line").......,color.(font-size.. |
| 2fc0 | 20 22 31 32 70 74 22 29 0a 09 20 20 20 20 20 2c 66 6f 6e 74 2d 66 61 6d 69 6c 79 29 29 0a 20 20 | ."12pt").......,font-family))... |
| 2fe0 | 20 20 28 68 32 20 6e 69 6c 20 28 28 6d 61 72 67 69 6e 2d 74 6f 70 20 2e 20 22 32 30 70 78 22 29 | ..(h2.nil.((margin-top..."20px") |
| 3000 | 20 28 6d 61 72 67 69 6e 2d 62 6f 74 74 6f 6d 20 2e 20 22 32 30 70 78 22 29 0a 09 20 20 20 20 20 | .(margin-bottom..."20px")....... |
| 3020 | 28 66 6f 6e 74 2d 73 74 79 6c 65 20 2e 20 22 69 74 61 6c 69 63 22 29 20 2c 63 6f 6c 6f 72 20 28 | (font-style..."italic").,color.( |
| 3040 | 66 6f 6e 74 2d 73 69 7a 65 20 2e 20 22 31 33 70 74 22 29 0a 09 20 20 20 20 20 2c 66 6f 6e 74 2d | font-size..."13pt").......,font- |
| 3060 | 66 61 6d 69 6c 79 29 29 0a 20 20 20 20 28 68 31 20 6e 69 6c 20 28 28 6d 61 72 67 69 6e 2d 74 6f | family)).....(h1.nil.((margin-to |
| 3080 | 70 20 2e 20 22 32 30 70 78 22 29 0a 09 20 20 20 20 20 28 6d 61 72 67 69 6e 2d 62 6f 74 74 6f 6d | p..."20px").......(margin-bottom |
| 30a0 | 20 2e 20 22 30 70 78 22 29 20 2c 63 6f 6c 6f 72 20 28 66 6f 6e 74 2d 73 69 7a 65 20 2e 20 22 31 | ..."0px").,color.(font-size..."1 |
| 30c0 | 32 70 74 22 29 0a 09 20 20 20 20 20 2c 66 6f 6e 74 2d 66 61 6d 69 6c 79 29 29 0a 20 20 20 20 28 | 2pt").......,font-family)).....( |
| 30e0 | 70 20 6e 69 6c 20 28 28 74 65 78 74 2d 64 65 63 6f 72 61 74 69 6f 6e 20 2e 20 22 6e 6f 6e 65 22 | p.nil.((text-decoration..."none" |
| 3100 | 29 20 28 6d 61 72 67 69 6e 2d 62 6f 74 74 6f 6d 20 2e 20 22 30 70 78 22 29 0a 09 20 20 20 20 28 | ).(margin-bottom..."0px")......( |
| 3120 | 6d 61 72 67 69 6e 2d 74 6f 70 20 2e 20 22 31 30 70 78 22 29 20 28 6c 69 6e 65 2d 68 65 69 67 68 | margin-top..."10px").(line-heigh |
| 3140 | 74 20 2e 20 22 31 31 70 74 22 29 20 2c 66 6f 6e 74 2d 73 69 7a 65 0a 09 20 20 20 20 2c 66 6f 6e | t..."11pt").,font-size......,fon |
| 3160 | 74 2d 66 61 6d 69 6c 79 29 29 0a 20 20 20 20 28 64 69 76 20 6e 69 6c 20 28 2c 40 66 6f 6e 74 20 | t-family)).....(div.nil.(,@font. |
| 3180 | 28 6c 69 6e 65 2d 68 65 69 67 68 74 20 2e 20 22 31 31 70 74 22 29 29 29 29 29 29 0a 0a 28 64 65 | (line-height..."11pt"))))))..(de |
| 31a0 | 66 63 75 73 74 6f 6d 20 6f 72 67 2d 6d 73 67 2d 65 6e 66 6f 72 63 65 2d 63 73 73 20 6f 72 67 2d | fcustom.org-msg-enforce-css.org- |
| 31c0 | 6d 73 67 2d 64 65 66 61 75 6c 74 2d 73 74 79 6c 65 0a 20 20 22 44 65 66 69 6e 65 20 68 6f 77 20 | msg-default-style..."Define.how. |
| 31e0 | 74 6f 20 68 61 6e 64 6c 65 20 43 53 53 20 73 74 79 6c 65 3a 0a 2d 20 6c 69 73 74 20 2d 20 73 74 | to.handle.CSS.style:.-.list.-.st |
| 3200 | 79 6c 65 20 64 65 66 69 6e 69 74 69 6f 6e 3a 20 73 65 65 20 60 6f 72 67 2d 6d 73 67 2d 64 65 66 | yle.definition:.see.`org-msg-def |
| 3220 | 61 75 6c 74 2d 73 74 79 6c 65 27 20 66 6f 72 0a 20 20 65 78 61 6d 70 6c 65 2e 0a 2d 20 73 74 72 | ault-style'.for...example..-.str |
| 3240 | 69 6e 67 20 2d 20 70 61 74 68 20 74 6f 20 61 20 43 53 53 20 66 69 6c 65 3a 20 73 61 6d 65 20 61 | ing.-.path.to.a.CSS.file:.same.a |
| 3260 | 73 20 74 20 62 75 74 20 75 73 65 20 74 68 69 73 20 66 69 6c 65 0a 20 20 64 65 66 69 6e 69 74 69 | s.t.but.use.this.file...definiti |
| 3280 | 6f 6e 73 2e 22 0a 20 20 3a 74 79 70 65 20 27 28 63 68 6f 69 63 65 20 28 66 69 6c 65 20 3a 6d 75 | ons."...:type.'(choice.(file.:mu |
| 32a0 | 73 74 2d 6d 61 74 63 68 20 74 29 0a 09 09 20 28 6c 69 73 74 20 28 6c 69 73 74 20 73 79 6d 62 6f | st-match.t)....(list.(list.symbo |
| 32c0 | 6c 20 73 79 6d 62 6f 6c 0a 09 09 09 20 20 20 20 20 28 61 6c 69 73 74 20 3a 76 61 6c 75 65 2d 74 | l.symbol.........(alist.:value-t |
| 32e0 | 79 70 65 20 73 74 72 69 6e 67 29 29 29 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 6f 72 67 2d | ype.string)))))..(defcustom.org- |
| 3300 | 6d 73 67 2d 72 65 70 6c 79 2d 68 65 61 64 65 72 2d 63 6c 61 73 73 20 27 72 65 70 6c 79 2d 68 65 | msg-reply-header-class.'reply-he |
| 3320 | 61 64 65 72 0a 20 20 22 44 65 66 61 75 6c 74 20 43 53 53 20 63 6c 61 73 73 20 66 6f 72 20 72 65 | ader..."Default.CSS.class.for.re |
| 3340 | 70 6c 79 20 68 65 61 64 65 72 20 74 61 67 73 2e 22 0a 20 20 3a 74 79 70 65 20 27 28 73 79 6d 62 | ply.header.tags."...:type.'(symb |
| 3360 | 6f 6c 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 6f 72 67 2d 6d 73 67 2d 63 6f 6e 76 65 72 74 | ol))..(defcustom.org-msg-convert |
| 3380 | 2d 63 69 74 61 74 69 6f 6e 20 6e 69 6c 0a 20 20 22 41 63 74 69 76 61 74 65 20 74 68 65 20 63 6f | -citation.nil..."Activate.the.co |
| 33a0 | 6e 76 65 72 73 69 6f 6e 20 6f 66 20 6d 61 69 6c 20 63 69 74 61 74 69 6f 6e 20 69 6e 74 6f 20 71 | nversion.of.mail.citation.into.q |
| 33c0 | 75 6f 74 65 20 62 6c 6f 63 6b 73 2e 0a 49 66 20 74 2c 20 6c 69 6e 65 73 20 6d 61 74 63 68 69 6e | uote.blocks..If.t,.lines.matchin |
| 33e0 | 67 20 74 68 65 20 27 5e 3e 2b 20 27 20 72 65 67 75 6c 61 72 20 65 78 70 72 65 73 73 69 6f 6e 20 | g.the.'^>+.'.regular.expression. |
| 3400 | 61 72 65 20 74 75 72 6e 65 64 0a 69 6e 74 6f 20 6d 75 6c 74 69 2d 6c 65 76 65 6c 20 71 75 6f 74 | are.turned.into.multi-level.quot |
| 3420 | 65 20 62 6c 6f 63 6b 73 20 62 65 66 6f 72 65 20 62 65 69 6e 67 20 70 61 73 73 65 64 20 74 6f 20 | e.blocks.before.being.passed.to. |
| 3440 | 74 68 65 20 4f 72 67 20 6d 6f 64 65 0a 48 54 4d 4c 20 65 78 70 6f 72 74 20 65 6e 67 69 6e 65 2e | the.Org.mode.HTML.export.engine. |
| 3460 | 22 0a 20 20 3a 74 79 70 65 20 27 28 62 6f 6f 6c 65 61 6e 29 29 0a 0a 28 64 65 66 63 75 73 74 6f | "...:type.'(boolean))..(defcusto |
| 3480 | 6d 20 6f 72 67 2d 6d 73 67 2d 73 75 70 70 6f 72 74 65 64 2d 6d 75 61 20 27 28 28 67 6e 75 73 2d | m.org-msg-supported-mua.'((gnus- |
| 34a0 | 75 73 65 72 2d 61 67 65 6e 74 20 2e 20 22 67 6e 75 73 22 29 0a 09 09 09 09 20 20 20 28 6d 65 73 | user-agent..."gnus")........(mes |
| 34c0 | 73 61 67 65 2d 75 73 65 72 2d 61 67 65 6e 74 20 2e 20 22 6d 65 73 73 61 67 65 22 29 0a 09 09 09 | sage-user-agent..."message").... |
| 34e0 | 09 20 20 20 28 6d 75 34 65 2d 75 73 65 72 2d 61 67 65 6e 74 20 2e 20 22 6d 75 34 65 22 29 0a 09 | ....(mu4e-user-agent..."mu4e").. |
| 3500 | 09 09 09 20 20 20 28 6e 6f 74 6d 75 63 68 2d 75 73 65 72 2d 61 67 65 6e 74 20 2e 20 22 6e 6f 74 | ......(notmuch-user-agent..."not |
| 3520 | 6d 75 63 68 22 29 29 0a 20 20 22 53 75 70 70 6f 72 74 65 64 20 4d 61 69 6c 20 55 73 65 72 20 41 | much"))..."Supported.Mail.User.A |
| 3540 | 67 65 6e 74 73 2e 22 0a 20 20 3a 74 79 70 65 20 27 28 61 6c 69 73 74 20 3a 76 61 6c 75 65 2d 74 | gents."...:type.'(alist.:value-t |
| 3560 | 79 70 65 20 73 74 72 69 6e 67 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6d 73 67 2d 64 6e 64 | ype.string))..(defun.org-msg-dnd |
| 3580 | 2d 68 61 6e 64 6c 65 2d 66 69 6c 65 20 28 75 72 69 20 5f 61 63 74 69 6f 6e 29 0a 20 20 22 41 74 | -handle-file.(uri._action)..."At |
| 35a0 | 74 61 63 68 20 61 20 66 69 6c 65 20 74 6f 20 74 68 65 20 63 75 72 72 65 6e 74 20 64 72 61 66 74 | tach.a.file.to.the.current.draft |
| 35c0 | 2e 0a 55 52 49 20 69 73 20 74 68 65 20 66 69 6c 65 20 74 6f 20 68 61 6e 64 6c 65 2c 20 41 43 54 | ..URI.is.the.file.to.handle,.ACT |
| 35e0 | 49 4f 4e 20 69 73 20 6f 6e 65 20 6f 66 20 63 6f 70 79 2c 20 6d 6f 76 65 2c 20 6c 69 6e 6b 20 6f | ION.is.one.of.copy,.move,.link.o |
| 3600 | 72 0a 61 73 6b 2e 22 0a 20 20 28 77 68 65 6e 2d 6c 65 74 20 28 28 66 69 6c 65 20 28 64 6e 64 2d | r.ask."...(when-let.((file.(dnd- |
| 3620 | 67 65 74 2d 6c 6f 63 61 6c 2d 66 69 6c 65 2d 6e 61 6d 65 20 75 72 69 20 74 29 29 29 0a 20 20 20 | get-local-file-name.uri.t))).... |
| 3640 | 20 28 6f 72 67 2d 6d 73 67 2d 61 74 74 61 63 68 2d 61 74 74 61 63 68 20 66 69 6c 65 29 29 29 0a | .(org-msg-attach-attach.file))). |
| 3660 | 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6d 73 67 2d 6d 75 61 2d 63 61 6c 6c 20 28 73 79 6d 20 26 6f | .(defun.org-msg-mua-call.(sym.&o |
| 3680 | 70 74 69 6f 6e 61 6c 20 64 65 66 61 75 6c 74 20 26 72 65 73 74 20 61 72 67 29 0a 20 20 22 43 61 | ptional.default.&rest.arg)..."Ca |
| 36a0 | 6c 6c 20 74 68 65 20 73 70 65 63 69 66 69 63 20 4d 55 41 20 66 75 6e 63 74 69 6f 6e 20 66 6f 72 | ll.the.specific.MUA.function.for |
| 36c0 | 20 53 59 4d 20 77 69 74 68 20 41 52 47 20 70 61 72 61 6d 65 74 65 72 73 2e 0a 49 66 20 6e 6f 20 | .SYM.with.ARG.parameters..If.no. |
| 36e0 | 66 75 6e 63 74 69 6f 6e 20 69 73 20 64 65 66 69 6e 65 64 20 66 6f 72 20 74 68 69 73 20 4d 55 41 | function.is.defined.for.this.MUA |
| 3700 | 2c 20 74 68 65 20 44 45 46 41 55 4c 54 20 66 75 6e 63 74 69 6f 6e 0a 69 73 20 63 61 6c 6c 65 64 | ,.the.DEFAULT.function.is.called |
| 3720 | 2e 22 0a 20 20 28 6c 65 74 20 28 28 6d 75 61 20 28 61 73 73 6f 63 2d 64 65 66 61 75 6c 74 20 6d | ."...(let.((mua.(assoc-default.m |
| 3740 | 61 69 6c 2d 75 73 65 72 2d 61 67 65 6e 74 20 6f 72 67 2d 6d 73 67 2d 73 75 70 70 6f 72 74 65 64 | ail-user-agent.org-msg-supported |
| 3760 | 2d 6d 75 61 29 29 29 0a 20 20 20 20 28 69 66 20 6d 75 61 0a 09 28 6c 65 74 20 28 28 66 75 6e 20 | -mua))).....(if.mua..(let.((fun. |
| 3780 | 28 69 6e 74 65 72 6e 20 28 66 6f 72 6d 61 74 20 22 6f 72 67 2d 6d 73 67 2d 25 73 2d 25 73 22 20 | (intern.(format."org-msg-%s-%s". |
| 37a0 | 73 79 6d 20 6d 75 61 29 29 29 29 0a 09 20 20 28 69 66 20 28 66 75 6e 63 74 69 6f 6e 70 20 66 75 | sym.mua))))....(if.(functionp.fu |
| 37c0 | 6e 29 0a 09 20 20 20 20 20 20 28 61 70 70 6c 79 20 66 75 6e 20 61 72 67 29 0a 09 20 20 20 20 28 | n)........(apply.fun.arg)......( |
| 37e0 | 77 68 65 6e 20 64 65 66 61 75 6c 74 0a 09 20 20 20 20 20 20 28 61 70 70 6c 79 20 64 65 66 61 75 | when.default........(apply.defau |
| 3800 | 6c 74 20 61 72 67 29 29 29 29 0a 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 42 61 63 6b 65 6e 64 | lt.arg)))).......(error."Backend |
| 3820 | 20 6e 6f 74 20 66 6f 75 6e 64 22 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6d 73 67 2d | .not.found"))))..(defun.org-msg- |
| 3840 | 6d 6d 6c 2d 72 65 63 75 72 73 69 76 65 2d 73 75 70 70 6f 72 74 20 28 29 0a 20 20 22 52 65 74 75 | mml-recursive-support.()..."Retu |
| 3860 | 72 6e 20 74 20 69 66 20 6d 6d 6c 20 68 61 73 20 72 65 63 75 72 73 69 76 65 20 68 74 6d 6c 20 73 | rn.t.if.mml.has.recursive.html.s |
| 3880 | 75 70 70 6f 72 74 2e 0a 53 74 61 72 74 69 6e 67 20 77 69 74 68 20 45 6d 61 63 73 20 32 38 2c 20 | upport..Starting.with.Emacs.28,. |
| 38a0 | 6d 6d 6c 20 72 65 63 75 72 73 69 76 65 6c 79 20 73 65 61 72 63 68 65 73 20 66 6f 72 20 74 68 65 | mml.recursively.searches.for.the |
| 38c0 | 0a 74 65 78 74 2f 68 74 6d 6c 20 70 61 72 74 20 61 6c 6c 6f 77 69 6e 67 20 6d 75 6c 74 69 70 61 | .text/html.part.allowing.multipa |
| 38e0 | 72 74 20 63 6f 6d 70 6f 73 69 74 69 6f 6e 20 77 69 74 68 20 48 54 4d 4c 20 63 6f 6e 74 65 6e 74 | rt.composition.with.HTML.content |
| 3900 | 0a 69 6e 63 6c 75 64 69 6e 67 20 69 6d 61 67 65 73 2e 0a 0a 49 66 20 74 68 69 73 20 69 73 20 6e | .including.images...If.this.is.n |
| 3920 | 6f 74 20 73 75 70 70 6f 72 74 65 64 2c 20 4f 72 67 4d 73 67 20 70 6c 61 63 65 73 20 74 68 65 20 | ot.supported,.OrgMsg.places.the. |
| 3940 | 74 65 78 74 2f 68 74 6d 6c 20 61 73 20 61 20 73 69 6e 67 6c 65 0a 70 61 72 74 20 61 6e 64 20 76 | text/html.as.a.single.part.and.v |
| 3960 | 69 61 20 61 6e 20 61 64 76 69 63 65 20 6f 6e 20 74 68 65 0a 60 6d 6d 6c 2d 65 78 70 61 6e 64 2d | ia.an.advice.on.the.`mml-expand- |
| 3980 | 68 74 6d 6c 2d 69 6e 74 6f 2d 6d 75 6c 74 69 70 61 72 74 2d 72 65 6c 61 74 65 64 60 20 66 75 6e | html-into-multipart-related`.fun |
| 39a0 | 63 74 69 6f 6e 2c 20 69 74 20 6d 6f 64 69 66 69 65 64 0a 74 68 65 20 6d 69 6d 65 20 64 61 74 61 | ction,.it.modified.the.mime.data |
| 39c0 | 20 73 74 72 75 63 74 75 72 65 2e 22 0a 20 20 28 66 62 6f 75 6e 64 70 20 27 6d 6d 6c 2d 65 78 70 | .structure."...(fboundp.'mml-exp |
| 39e0 | 61 6e 64 2d 61 6c 6c 2d 68 74 6d 6c 2d 69 6e 74 6f 2d 6d 75 6c 74 69 70 61 72 74 2d 72 65 6c 61 | and-all-html-into-multipart-rela |
| 3a00 | 74 65 64 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6d 73 67 2d 73 61 76 65 2d 61 72 74 69 63 | ted))..(defun.org-msg-save-artic |
| 3a20 | 6c 65 2d 66 6f 72 2d 72 65 70 6c 79 2d 67 6e 75 73 20 28 26 6f 70 74 69 6f 6e 61 6c 20 70 61 72 | le-for-reply-gnus.(&optional.par |
| 3a40 | 74 73 20 68 65 61 64 65 72 29 0a 20 20 22 45 78 70 6f 72 74 20 74 68 65 20 63 75 72 72 65 6e 74 | ts.header)..."Export.the.current |
| 3a60 | 6c 79 20 76 69 73 69 74 65 64 20 60 67 6e 75 73 2d 61 72 74 69 63 6c 65 2d 62 75 66 66 65 72 27 | ly.visited.`gnus-article-buffer' |
| 3a80 | 20 61 73 20 48 54 4d 4c 2e 0a 49 66 20 70 61 72 74 73 20 69 73 20 6e 6f 74 20 6e 69 6c 2c 20 69 | .as.HTML..If.parts.is.not.nil,.i |
| 3aa0 | 74 20 65 78 70 6f 72 74 73 20 69 6e 20 61 20 66 69 6c 65 20 75 73 69 6e 67 20 74 68 65 0a 60 67 | t.exports.in.a.file.using.the.`g |
| 3ac0 | 6e 75 73 2d 61 72 74 69 63 6c 65 2d 62 72 6f 77 73 65 2d 68 74 6d 6c 2d 70 61 72 74 73 27 20 66 | nus-article-browse-html-parts'.f |
| 3ae0 | 75 6e 63 74 69 6f 6e 20 6f 74 68 65 72 77 69 73 65 2c 20 69 74 20 75 73 65 73 20 74 68 65 0a 60 | unction.otherwise,.it.uses.the.` |
| 3b00 | 67 6e 75 73 2d 61 72 74 69 63 6c 65 2d 62 72 6f 77 73 65 2d 68 74 6d 6c 2d 61 72 74 69 63 6c 65 | gnus-article-browse-html-article |
| 3b20 | 27 20 66 75 6e 63 74 69 6f 6e 2e 20 20 49 66 20 74 68 65 20 63 75 72 72 65 6e 74 0a 61 72 74 69 | '.function...If.the.current.arti |
| 3b40 | 63 6c 65 20 63 6f 6e 74 61 69 6e 73 20 6f 74 68 65 72 20 48 54 4d 4c 20 65 6d 61 69 6c 73 20 61 | cle.contains.other.HTML.emails.a |
| 3b60 | 73 20 61 74 74 61 63 68 6d 65 6e 74 73 2c 20 74 68 65 0a 60 62 72 6f 77 73 65 2d 75 72 6c 2d 62 | s.attachments,.the.`browse-url-b |
| 3b80 | 72 6f 77 73 65 72 2d 66 75 6e 63 74 69 6f 6e 27 20 69 73 20 63 61 6c 6c 65 64 20 73 65 76 65 72 | rowser-function'.is.called.sever |
| 3ba0 | 61 6c 20 74 69 6d 65 73 2e 20 20 57 65 20 6f 6e 6c 79 0a 6b 65 65 70 20 74 72 61 63 6b 20 6f 66 | al.times...We.only.keep.track.of |
| 3bc0 | 20 74 68 65 20 66 69 72 73 74 20 63 61 6c 6c 20 77 68 69 63 68 20 69 73 20 75 73 75 61 6c 6c 79 | .the.first.call.which.is.usually |
| 3be0 | 20 74 68 65 20 61 63 74 75 61 6c 20 65 6d 61 69 6c 20 77 65 0a 77 61 6e 74 20 74 6f 20 72 65 70 | .the.actual.email.we.want.to.rep |
| 3c00 | 6c 79 20 74 6f 2e 20 20 42 6f 74 68 20 60 67 6e 75 73 2d 61 72 74 69 63 6c 65 2d 62 72 6f 77 73 | ly.to...Both.`gnus-article-brows |
| 3c20 | 65 2d 68 74 6d 6c 2d 61 72 74 69 63 6c 65 27 20 61 6e 64 0a 60 67 6e 75 73 2d 61 72 74 69 63 6c | e-html-article'.and.`gnus-articl |
| 3c40 | 65 2d 62 72 6f 77 73 65 2d 68 74 6d 6c 2d 70 61 72 74 73 27 20 61 6c 73 6f 20 65 78 74 72 61 63 | e-browse-html-parts'.also.extrac |
| 3c60 | 74 20 61 6c 6c 20 74 68 65 20 69 6e 6c 69 6e 65 0a 69 6d 61 67 65 73 2e 20 20 54 68 69 73 20 66 | t.all.the.inline.images...This.f |
| 3c80 | 75 6e 63 74 69 6f 6e 20 72 65 74 75 72 6e 73 20 74 68 65 20 61 62 73 6f 6c 75 74 65 20 70 61 74 | unction.returns.the.absolute.pat |
| 3ca0 | 68 20 6f 66 20 74 68 65 20 48 54 4d 4c 0a 66 69 6c 65 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 62 | h.of.the.HTML.file."...(let*.((b |
| 3cc0 | 72 6f 77 73 65 2d 75 72 6c 2d 62 72 6f 77 73 65 72 2d 66 75 6e 63 74 69 6f 6e 20 23 27 69 67 6e | rowse-url-browser-function.#'ign |
| 3ce0 | 6f 72 65 29 0a 09 20 28 73 61 76 65 20 28 63 6c 2d 63 6f 70 79 2d 6c 69 73 74 20 67 6e 75 73 2d | ore)...(save.(cl-copy-list.gnus- |
| 3d00 | 61 72 74 69 63 6c 65 2d 62 72 6f 77 73 65 2d 68 74 6d 6c 2d 74 65 6d 70 2d 6c 69 73 74 29 29 29 | article-browse-html-temp-list))) |
| 3d20 | 0a 20 20 20 20 28 63 6c 2d 6c 65 74 66 20 28 28 28 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e | .....(cl-letf.(((symbol-function |
| 3d40 | 20 27 67 6e 75 73 2d 73 75 6d 6d 61 72 79 2d 73 68 6f 77 2d 61 72 74 69 63 6c 65 29 20 23 27 69 | .'gnus-summary-show-article).#'i |
| 3d60 | 67 6e 6f 72 65 29 29 0a 20 20 20 20 20 20 28 73 61 76 65 2d 77 69 6e 64 6f 77 2d 65 78 63 75 72 | gnore)).......(save-window-excur |
| 3d80 | 73 69 6f 6e 0a 09 28 69 66 20 70 61 72 74 73 0a 09 20 20 20 20 28 67 6e 75 73 2d 61 72 74 69 63 | sion..(if.parts......(gnus-artic |
| 3da0 | 6c 65 2d 62 72 6f 77 73 65 2d 68 74 6d 6c 2d 70 61 72 74 73 20 70 61 72 74 73 20 68 65 61 64 65 | le-browse-html-parts.parts.heade |
| 3dc0 | 72 29 0a 09 20 20 28 67 6e 75 73 2d 61 72 74 69 63 6c 65 2d 62 72 6f 77 73 65 2d 68 74 6d 6c 2d | r)....(gnus-article-browse-html- |
| 3de0 | 61 72 74 69 63 6c 65 29 29 29 29 0a 20 20 20 20 28 70 72 6f 67 31 20 28 63 6c 2d 73 65 74 2d 64 | article)))).....(prog1.(cl-set-d |
| 3e00 | 69 66 66 65 72 65 6e 63 65 20 67 6e 75 73 2d 61 72 74 69 63 6c 65 2d 62 72 6f 77 73 65 2d 68 74 | ifference.gnus-article-browse-ht |
| 3e20 | 6d 6c 2d 74 65 6d 70 2d 6c 69 73 74 20 73 61 76 65 0a 09 09 09 20 20 20 20 20 20 3a 74 65 73 74 | ml-temp-list.save..........:test |
| 3e40 | 20 27 73 74 72 69 6e 67 3d 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 67 6e 75 73 2d 61 72 74 69 | .'string=).......(setq.gnus-arti |
| 3e60 | 63 6c 65 2d 62 72 6f 77 73 65 2d 68 74 6d 6c 2d 74 65 6d 70 2d 6c 69 73 74 20 73 61 76 65 29 29 | cle-browse-html-temp-list.save)) |
| 3e80 | 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6d 73 67 2d 73 61 76 65 2d 61 72 74 69 63 6c 65 2d | ))..(defun.org-msg-save-article- |
| 3ea0 | 66 6f 72 2d 72 65 70 6c 79 2d 6d 75 34 65 20 28 29 0a 20 20 22 45 78 70 6f 72 74 20 74 68 65 20 | for-reply-mu4e.()..."Export.the. |
| 3ec0 | 63 75 72 72 65 6e 74 6c 79 20 76 69 73 69 74 65 64 20 6d 75 34 65 20 61 72 74 69 63 6c 65 20 61 | currently.visited.mu4e.article.a |
| 3ee0 | 73 20 48 54 4d 4c 2e 22 0a 20 20 28 6c 65 74 20 28 28 6d 73 67 20 6d 75 34 65 2d 63 6f 6d 70 6f | s.HTML."...(let.((msg.mu4e-compo |
| 3f00 | 73 65 2d 70 61 72 65 6e 74 2d 6d 65 73 73 61 67 65 29 29 0a 20 20 20 20 28 77 69 74 68 2d 74 65 | se-parent-message)).....(with-te |
| 3f20 | 6d 70 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 28 69 6e 73 65 72 74 2d 66 69 6c 65 2d 63 6f 6e | mp-buffer.......(insert-file-con |
| 3f40 | 74 65 6e 74 73 2d 6c 69 74 65 72 61 6c 6c 79 0a 20 20 20 20 20 20 20 28 6d 75 34 65 2d 6d 65 73 | tents-literally........(mu4e-mes |
| 3f60 | 73 61 67 65 2d 72 65 61 64 61 62 6c 65 2d 70 61 74 68 20 6d 73 67 29 20 6e 69 6c 20 6e 69 6c 20 | sage-readable-path.msg).nil.nil. |
| 3f80 | 6e 69 6c 20 74 29 0a 20 20 20 20 20 20 28 72 66 63 32 30 34 37 2d 64 65 63 6f 64 65 2d 72 65 67 | nil.t).......(rfc2047-decode-reg |
| 3fa0 | 69 6f 6e 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 0a 20 20 20 | ion.(point-min).(point-max)).... |
| 3fc0 | 20 20 20 28 6c 65 74 20 28 28 70 61 72 74 73 20 28 6d 6d 2d 64 69 73 73 65 63 74 2d 62 75 66 66 | ...(let.((parts.(mm-dissect-buff |
| 3fe0 | 65 72 20 74 20 74 29 29 0a 09 20 20 20 20 28 68 65 61 64 65 72 20 28 63 6c 2d 6c 6f 6f 70 20 66 | er.t.t))......(header.(cl-loop.f |
| 4000 | 6f 72 20 66 69 65 6c 64 20 69 6e 20 27 28 22 66 72 6f 6d 22 20 22 74 6f 22 20 22 63 63 22 20 22 | or.field.in.'("from"."to"."cc"." |
| 4020 | 64 61 74 65 22 20 22 73 75 62 6a 65 63 74 22 29 0a 09 09 09 20 20 20 20 20 77 68 65 6e 20 28 6d | date"."subject").........when.(m |
| 4040 | 65 73 73 61 67 65 2d 66 65 74 63 68 2d 66 69 65 6c 64 20 66 69 65 6c 64 29 0a 09 09 09 20 20 20 | essage-fetch-field.field)....... |
| 4060 | 20 20 63 6f 6e 63 61 74 20 28 66 6f 72 6d 61 74 20 22 25 73 3a 20 25 73 5c 6e 22 20 28 63 61 70 | ..concat.(format."%s:.%s\n".(cap |
| 4080 | 69 74 61 6c 69 7a 65 20 66 69 65 6c 64 29 20 69 74 29 29 29 29 0a 0a 09 28 77 68 65 6e 20 28 61 | italize.field).it))))...(when.(a |
| 40a0 | 6e 64 20 28 62 75 66 66 65 72 70 20 28 63 61 72 20 70 61 72 74 73 29 29 0a 09 09 20 20 20 28 73 | nd.(bufferp.(car.parts))......(s |
| 40c0 | 74 72 69 6e 67 70 20 28 63 61 72 20 28 6d 6d 2d 68 61 6e 64 6c 65 2d 74 79 70 65 20 70 61 72 74 | tringp.(car.(mm-handle-type.part |
| 40e0 | 73 29 29 29 29 0a 09 20 20 28 73 65 74 66 20 70 61 72 74 73 20 28 6c 69 73 74 20 70 61 72 74 73 | s))))....(setf.parts.(list.parts |
| 4100 | 29 29 29 0a 09 28 6c 65 74 20 28 28 67 6e 75 73 2d 61 72 74 69 63 6c 65 2d 62 75 66 66 65 72 20 | )))..(let.((gnus-article-buffer. |
| 4120 | 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 0a 09 20 20 20 20 20 20 28 67 6e 75 73 2d 61 | (current-buffer))........(gnus-a |
| 4140 | 72 74 69 63 6c 65 2d 6d 69 6d 65 2d 68 61 6e 64 6c 65 73 20 70 61 72 74 73 29 29 0a 09 20 20 28 | rticle-mime-handles.parts))....( |
| 4160 | 70 72 6f 67 31 0a 09 20 20 20 20 20 20 28 6f 72 67 2d 6d 73 67 2d 73 61 76 65 2d 61 72 74 69 63 | prog1........(org-msg-save-artic |
| 4180 | 6c 65 2d 66 6f 72 2d 72 65 70 6c 79 2d 67 6e 75 73 20 70 61 72 74 73 20 68 65 61 64 65 72 29 0a | le-for-reply-gnus.parts.header). |
| 41a0 | 09 20 20 20 20 28 6d 6d 2d 64 65 73 74 72 6f 79 2d 70 61 72 74 73 20 70 61 72 74 73 29 29 29 29 | .....(mm-destroy-parts.parts)))) |
| 41c0 | 29 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 6f 72 67 2d 6d 73 67 2d 77 69 74 68 2d 6f 72 69 67 | )))..(defmacro.org-msg-with-orig |
| 41e0 | 69 6e 61 6c 2d 6e 6f 74 6d 75 63 68 2d 6d 65 73 73 61 67 65 20 28 26 72 65 73 74 20 62 6f 64 79 | inal-notmuch-message.(&rest.body |
| 4200 | 29 0a 20 20 22 45 78 65 63 75 74 65 20 74 68 65 20 66 6f 72 6d 73 20 69 6e 20 42 4f 44 59 20 77 | )..."Execute.the.forms.in.BODY.w |
| 4220 | 69 74 68 20 74 68 65 20 72 65 70 6c 69 65 64 20 6e 6f 74 6d 75 63 68 20 6d 65 73 73 61 67 65 0a | ith.the.replied.notmuch.message. |
| 4240 | 62 75 66 66 65 72 20 74 65 6d 70 6f 72 61 72 69 6c 79 20 63 75 72 72 65 6e 74 2e 22 0a 20 20 28 | buffer.temporarily.current."...( |
| 4260 | 64 65 63 6c 61 72 65 20 28 69 6e 64 65 6e 74 20 30 29 29 0a 20 20 28 6c 65 74 20 28 28 69 64 20 | declare.(indent.0))...(let.((id. |
| 4280 | 28 6d 61 6b 65 2d 73 79 6d 62 6f 6c 20 22 69 64 22 29 29 0a 09 28 62 75 66 20 28 6d 61 6b 65 2d | (make-symbol."id"))..(buf.(make- |
| 42a0 | 73 79 6d 62 6f 6c 20 22 62 75 66 22 29 29 29 0a 20 20 20 20 60 28 6c 65 74 20 28 28 2c 69 64 20 | symbol."buf"))).....`(let.((,id. |
| 42c0 | 28 6f 72 67 2d 6d 73 67 2d 6d 65 73 73 61 67 65 2d 66 65 74 63 68 2d 66 69 65 6c 64 20 22 69 6e | (org-msg-message-fetch-field."in |
| 42e0 | 2d 72 65 70 6c 79 2d 74 6f 22 29 29 29 0a 20 20 20 20 20 20 20 28 73 61 76 65 2d 77 69 6e 64 6f | -reply-to")))........(save-windo |
| 4300 | 77 2d 65 78 63 75 72 73 69 6f 6e 0a 09 20 28 6c 65 74 2a 20 28 28 6e 6f 74 6d 75 63 68 2d 73 68 | w-excursion...(let*.((notmuch-sh |
| 4320 | 6f 77 2d 6f 6e 6c 79 2d 6d 61 74 63 68 69 6e 67 2d 6d 65 73 73 61 67 65 73 20 74 29 0a 09 20 20 | ow-only-matching-messages.t).... |
| 4340 | 20 20 20 20 20 28 2c 62 75 66 20 28 6e 6f 74 6d 75 63 68 2d 73 68 6f 77 20 28 66 6f 72 6d 61 74 | .....(,buf.(notmuch-show.(format |
| 4360 | 20 22 69 64 3a 25 73 22 20 28 73 75 62 73 74 72 69 6e 67 20 2c 69 64 20 31 20 2d 31 29 29 29 29 | ."id:%s".(substring.,id.1.-1)))) |
| 4380 | 29 0a 09 20 20 20 28 6e 6f 74 6d 75 63 68 2d 73 68 6f 77 2d 76 69 65 77 2d 72 61 77 2d 6d 65 73 | ).....(notmuch-show-view-raw-mes |
| 43a0 | 73 61 67 65 29 0a 09 20 20 20 28 70 72 6f 67 31 20 28 70 72 6f 67 6e 20 2c 40 62 6f 64 79 29 0a | sage).....(prog1.(progn.,@body). |
| 43c0 | 09 20 20 20 20 20 28 6b 69 6c 6c 2d 62 75 66 66 65 72 20 2c 62 75 66 29 0a 09 20 20 20 20 20 28 | ......(kill-buffer.,buf).......( |
| 43e0 | 6b 69 6c 6c 2d 62 75 66 66 65 72 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6d | kill-buffer)))))))..(defun.org-m |
| 4400 | 73 67 2d 73 61 76 65 2d 61 72 74 69 63 6c 65 2d 66 6f 72 2d 72 65 70 6c 79 2d 6e 6f 74 6d 75 63 | sg-save-article-for-reply-notmuc |
| 4420 | 68 20 28 29 0a 20 20 22 45 78 70 6f 72 74 20 74 68 65 20 63 75 72 72 65 6e 74 6c 79 20 76 69 73 | h.()..."Export.the.currently.vis |
| 4440 | 69 74 65 64 20 6e 6f 74 6d 75 63 68 20 61 72 74 69 63 6c 65 20 61 73 20 48 54 4d 4c 2e 22 0a 20 | ited.notmuch.article.as.HTML.".. |
| 4460 | 20 28 6c 65 74 20 28 68 65 61 64 65 72 20 70 61 72 74 73 29 0a 20 20 20 20 28 63 6c 2d 66 6c 65 | .(let.(header.parts).....(cl-fle |
| 4480 | 74 20 28 28 67 65 74 2d 66 69 65 6c 64 20 28 66 69 65 6c 64 29 0a 09 20 20 20 20 20 20 20 28 77 | t.((get-field.(field).........(w |
| 44a0 | 68 65 6e 2d 6c 65 74 20 28 28 76 61 6c 75 65 20 28 6f 72 67 2d 6d 73 67 2d 6d 65 73 73 61 67 65 | hen-let.((value.(org-msg-message |
| 44c0 | 2d 66 65 74 63 68 2d 66 69 65 6c 64 20 66 69 65 6c 64 29 29 29 0a 09 09 20 28 63 6f 6e 63 61 74 | -fetch-field.field)))....(concat |
| 44e0 | 20 28 63 61 70 69 74 61 6c 69 7a 65 20 66 69 65 6c 64 29 20 22 3a 20 22 20 76 61 6c 75 65 29 29 | .(capitalize.field).":.".value)) |
| 4500 | 29 29 0a 20 20 20 20 20 20 28 6f 72 67 2d 6d 73 67 2d 77 69 74 68 2d 6f 72 69 67 69 6e 61 6c 2d | )).......(org-msg-with-original- |
| 4520 | 6e 6f 74 6d 75 63 68 2d 6d 65 73 73 61 67 65 0a 09 28 6c 65 74 20 28 28 66 69 65 6c 64 73 20 28 | notmuch-message..(let.((fields.( |
| 4540 | 6d 61 70 63 61 72 20 23 27 67 65 74 2d 66 69 65 6c 64 0a 09 09 09 20 20 20 20 20 20 27 28 22 66 | mapcar.#'get-field..........'("f |
| 4560 | 72 6f 6d 22 20 22 73 75 62 6a 65 63 74 22 20 22 74 6f 22 20 22 63 63 22 20 22 64 61 74 65 22 29 | rom"."subject"."to"."cc"."date") |
| 4580 | 29 29 29 0a 09 20 20 28 73 65 74 66 20 68 65 61 64 65 72 20 28 6d 61 70 63 6f 6e 63 61 74 20 27 | )))....(setf.header.(mapconcat.' |
| 45a0 | 69 64 65 6e 74 69 74 79 20 28 64 65 6c 71 20 6e 69 6c 20 66 69 65 6c 64 73 29 20 22 5c 6e 22 29 | identity.(delq.nil.fields)."\n") |
| 45c0 | 29 29 0a 09 28 73 65 74 66 20 70 61 72 74 73 20 28 6d 6d 2d 64 69 73 73 65 63 74 2d 62 75 66 66 | ))..(setf.parts.(mm-dissect-buff |
| 45e0 | 65 72 29 29 0a 09 28 75 6e 6c 65 73 73 20 28 6c 69 73 74 70 20 28 63 61 72 20 70 61 72 74 73 29 | er))..(unless.(listp.(car.parts) |
| 4600 | 29 0a 09 20 20 28 73 65 74 66 20 70 61 72 74 73 20 28 6c 69 73 74 20 70 61 72 74 73 29 29 29 29 | )....(setf.parts.(list.parts)))) |
| 4620 | 0a 20 20 20 20 20 20 28 77 69 74 68 2d 74 65 6d 70 2d 62 75 66 66 65 72 0a 09 28 6c 65 74 20 28 | .......(with-temp-buffer..(let.( |
| 4640 | 28 67 6e 75 73 2d 61 72 74 69 63 6c 65 2d 62 75 66 66 65 72 20 28 63 75 72 72 65 6e 74 2d 62 75 | (gnus-article-buffer.(current-bu |
| 4660 | 66 66 65 72 29 29 0a 09 20 20 20 20 20 20 28 67 6e 75 73 2d 61 72 74 69 63 6c 65 2d 6d 69 6d 65 | ffer))........(gnus-article-mime |
| 4680 | 2d 68 61 6e 64 6c 65 73 20 70 61 72 74 73 29 29 0a 09 20 20 28 70 72 6f 67 31 20 28 6f 72 67 2d | -handles.parts))....(prog1.(org- |
| 46a0 | 6d 73 67 2d 73 61 76 65 2d 61 72 74 69 63 6c 65 2d 66 6f 72 2d 72 65 70 6c 79 2d 67 6e 75 73 20 | msg-save-article-for-reply-gnus. |
| 46c0 | 70 61 72 74 73 20 68 65 61 64 65 72 29 0a 09 20 20 20 20 28 6d 6d 2d 64 65 73 74 72 6f 79 2d 70 | parts.header)......(mm-destroy-p |
| 46e0 | 61 72 74 73 20 70 61 72 74 73 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6d 73 | arts.parts)))))))..(defun.org-ms |
| 4700 | 67 2d 61 74 74 72 73 2d 73 74 72 20 28 61 74 74 72 29 0a 20 20 22 43 6f 6e 76 65 72 74 20 41 54 | g-attrs-str.(attr)..."Convert.AT |
| 4720 | 54 52 20 6c 69 73 74 20 6f 66 20 61 74 74 72 69 62 75 74 65 73 20 69 6e 74 6f 20 61 20 73 74 72 | TR.list.of.attributes.into.a.str |
| 4740 | 69 6e 67 2e 22 0a 20 20 28 63 6c 2d 66 6c 65 74 20 28 28 61 74 74 72 2d 73 74 72 20 28 78 29 0a | ing."...(cl-flet.((attr-str.(x). |
| 4760 | 09 20 20 20 20 20 20 28 63 6f 6e 63 61 74 20 22 20 22 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 | .......(concat.".".(symbol-name. |
| 4780 | 28 63 61 72 20 78 29 29 20 22 3d 5c 22 22 0a 09 09 20 20 20 20 20 20 28 78 6d 6c 2d 65 73 63 61 | (car.x))."=\"".........(xml-esca |
| 47a0 | 70 65 2d 73 74 72 69 6e 67 20 28 63 64 72 20 78 29 29 20 22 5c 22 22 29 29 29 0a 20 20 20 20 28 | pe-string.(cdr.x))."\""))).....( |
| 47c0 | 69 66 20 61 74 74 72 0a 09 28 61 70 70 6c 79 20 27 63 6f 6e 63 61 74 20 28 6d 61 70 63 61 72 20 | if.attr..(apply.'concat.(mapcar. |
| 47e0 | 23 27 61 74 74 72 2d 73 74 72 20 61 74 74 72 29 29 0a 20 20 20 20 20 20 22 22 29 29 29 0a 0a 28 | #'attr-str.attr))......."")))..( |
| 4800 | 64 65 66 75 6e 20 6f 72 67 2d 6d 73 67 2d 78 6d 6c 2d 65 73 63 61 70 65 2d 73 74 72 69 6e 67 20 | defun.org-msg-xml-escape-string. |
| 4820 | 28 73 74 72 69 6e 67 29 0a 20 20 22 43 6f 6e 76 65 72 74 20 53 54 52 49 4e 47 20 69 6e 74 6f 20 | (string)..."Convert.STRING.into. |
| 4840 | 61 20 73 74 72 69 6e 67 20 63 6f 6e 74 61 69 6e 69 6e 67 20 76 61 6c 69 64 20 58 4d 4c 20 63 68 | a.string.containing.valid.XML.ch |
| 4860 | 61 72 61 63 74 65 72 20 64 61 74 61 2e 0a 54 68 69 73 20 69 73 20 61 20 72 65 64 75 63 74 69 6f | aracter.data..This.is.a.reductio |
| 4880 | 6e 20 6f 66 20 60 78 6d 6c 2d 65 73 63 61 70 65 2d 73 74 72 69 6e 67 27 20 74 6f 20 77 6f 72 6b | n.of.`xml-escape-string'.to.work |
| 48a0 | 2d 61 72 6f 75 6e 64 20 61 20 62 75 67 0a 64 75 72 69 6e 67 20 65 6d 61 69 6c 20 67 65 6e 65 72 | -around.a.bug.during.email.gener |
| 48c0 | 61 74 69 6f 6e 20 77 68 65 72 65 20 27 26 61 70 6f 73 3b 27 20 69 73 20 74 75 72 6e 65 64 20 69 | ation.where.'''.is.turned.i |
| 48e0 | 6e 74 6f 0a 27 26 61 6d 70 3b 61 70 6f 73 3b 27 2e 22 0a 20 20 28 77 69 74 68 2d 74 65 6d 70 2d | nto.'&apos;'."...(with-temp- |
| 4900 | 62 75 66 66 65 72 0a 20 20 20 20 28 69 6e 73 65 72 74 20 73 74 72 69 6e 67 29 0a 20 20 20 20 28 | buffer.....(insert.string).....( |
| 4920 | 64 6f 6c 69 73 74 20 28 73 75 62 73 74 69 74 75 74 69 6f 6e 20 27 28 28 22 26 22 20 2e 20 22 26 | dolist.(substitution.'(("&"..."& |
| 4940 | 61 6d 70 3b 22 29 0a 09 09 09 20 20 20 20 28 22 3c 22 20 2e 20 22 26 6c 74 3b 22 29 0a 09 09 09 | amp;")........("<"..."<").... |
| 4960 | 20 20 20 20 28 22 3e 22 20 2e 20 22 26 67 74 3b 22 29 0a 09 09 09 20 20 20 20 28 22 5c 22 22 20 | ....(">"...">")........("\"". |
| 4980 | 2e 20 22 26 71 75 6f 74 3b 22 29 29 29 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 | .."""))).......(goto-char.( |
| 49a0 | 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 73 65 61 72 63 68 | point-min)).......(while.(search |
| 49c0 | 2d 66 6f 72 77 61 72 64 20 28 63 61 72 20 73 75 62 73 74 69 74 75 74 69 6f 6e 29 20 6e 69 6c 20 | -forward.(car.substitution).nil. |
| 49e0 | 74 29 0a 09 28 72 65 70 6c 61 63 65 2d 6d 61 74 63 68 20 28 63 64 72 20 73 75 62 73 74 69 74 75 | t)..(replace-match.(cdr.substitu |
| 4a00 | 74 69 6f 6e 29 20 74 20 74 20 6e 69 6c 29 29 29 0a 20 20 20 20 28 62 75 66 66 65 72 2d 73 74 72 | tion).t.t.nil))).....(buffer-str |
| 4a20 | 69 6e 67 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6d 73 67 2d 78 6d 6c 2d 74 6f 2d 73 74 | ing)))..(defun.org-msg-xml-to-st |
| 4a40 | 72 20 28 78 6d 6c 29 0a 20 20 22 43 6f 6e 76 65 72 74 20 74 68 65 20 58 4d 4c 20 74 72 65 65 20 | r.(xml)..."Convert.the.XML.tree. |
| 4a60 | 69 6e 74 6f 20 61 20 48 54 4d 4c 20 73 74 72 69 6e 67 2e 22 0a 20 20 28 63 6f 6e 64 20 28 28 61 | into.a.HTML.string."...(cond.((a |
| 4a80 | 6e 64 20 28 6c 69 73 74 70 20 78 6d 6c 29 20 28 65 71 75 61 6c 20 78 6d 6c 20 27 28 70 20 6e 69 | nd.(listp.xml).(equal.xml.'(p.ni |
| 4aa0 | 6c 20 22 c2 a0 22 29 29 29 0a 09 20 22 3c 6f 3a 70 3e 26 6e 62 73 70 3b 3c 2f 6f 3a 70 3e 22 29 | l."..")))..."<o:p> </o:p>") |
| 4ac0 | 0a 09 28 28 61 6e 64 20 28 6c 69 73 74 70 20 78 6d 6c 29 20 28 65 71 75 61 6c 20 78 6d 6c 20 27 | ..((and.(listp.xml).(equal.xml.' |
| 4ae0 | 28 70 20 6e 69 6c 29 29 29 0a 09 20 22 3c 6f 3a 70 3e 5c 6e 3c 2f 6f 3a 70 3e 22 29 0a 09 28 28 | (p.nil)))..."<o:p>\n</o:p>")..(( |
| 4b00 | 73 74 72 69 6e 67 70 20 78 6d 6c 29 0a 09 20 28 72 65 70 6c 61 63 65 2d 72 65 67 65 78 70 2d 69 | stringp.xml)...(replace-regexp-i |
| 4b20 | 6e 2d 73 74 72 69 6e 67 20 22 c2 a0 22 20 22 26 6e 62 73 70 3b 22 0a 09 09 09 09 20 20 20 28 6f | n-string.".."." "........(o |
| 4b40 | 72 67 2d 6d 73 67 2d 78 6d 6c 2d 65 73 63 61 70 65 2d 73 74 72 69 6e 67 20 78 6d 6c 29 29 29 0a | rg-msg-xml-escape-string.xml))). |
| 4b60 | 09 28 28 65 71 20 28 63 61 72 20 78 6d 6c 29 20 27 63 6f 6d 6d 65 6e 74 29 0a 09 20 28 66 6f 72 | .((eq.(car.xml).'comment)...(for |
| 4b80 | 6d 61 74 20 22 3c 21 2d 2d 25 73 2d 2d 3e 22 20 28 63 61 64 64 72 20 78 6d 6c 29 29 29 0a 09 28 | mat."<!--%s-->".(caddr.xml)))..( |
| 4ba0 | 28 65 71 20 28 63 61 72 20 78 6d 6c 29 20 27 73 74 79 6c 65 29 0a 09 20 28 66 6f 72 6d 61 74 20 | (eq.(car.xml).'style)...(format. |
| 4bc0 | 22 3c 73 74 79 6c 65 3e 25 73 3c 2f 73 74 79 6c 65 3e 22 20 28 63 61 64 64 72 20 78 6d 6c 29 29 | "<style>%s</style>".(caddr.xml)) |
| 4be0 | 29 0a 09 28 28 63 64 64 72 20 78 6d 6c 29 0a 09 20 28 66 6f 72 6d 61 74 20 22 3c 25 73 25 73 3e | )..((cddr.xml)...(format."<%s%s> |
| 4c00 | 25 73 3c 2f 25 73 3e 22 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 28 63 61 72 20 78 6d 6c 29 29 | %s</%s>".(symbol-name.(car.xml)) |
| 4c20 | 0a 09 09 20 28 6f 72 67 2d 6d 73 67 2d 61 74 74 72 73 2d 73 74 72 20 28 63 61 64 72 20 78 6d 6c | ....(org-msg-attrs-str.(cadr.xml |
| 4c40 | 29 29 0a 09 09 20 28 61 70 70 6c 79 20 27 63 6f 6e 63 61 74 20 28 6d 61 70 63 61 72 20 27 6f 72 | ))....(apply.'concat.(mapcar.'or |
| 4c60 | 67 2d 6d 73 67 2d 78 6d 6c 2d 74 6f 2d 73 74 72 20 28 63 64 64 72 20 78 6d 6c 29 29 29 0a 09 09 | g-msg-xml-to-str.(cddr.xml)))... |
| 4c80 | 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 28 63 61 72 20 78 6d 6c 29 29 29 29 0a 09 28 28 66 6f | .(symbol-name.(car.xml))))..((fo |
| 4ca0 | 72 6d 61 74 20 22 3c 25 73 25 73 2f 3e 22 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 28 63 61 72 | rmat."<%s%s/>".(symbol-name.(car |
| 4cc0 | 20 78 6d 6c 29 29 0a 09 09 20 28 6f 72 67 2d 6d 73 67 2d 61 74 74 72 73 2d 73 74 72 20 28 63 61 | .xml))....(org-msg-attrs-str.(ca |
| 4ce0 | 64 72 20 78 6d 6c 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6d 73 67 2d 63 73 73 | dr.xml))))))..(defun.org-msg-css |
| 4d00 | 2d 74 6f 2d 6c 69 73 74 20 28 29 0a 20 20 22 43 6f 6e 76 65 72 74 20 74 68 65 20 63 75 72 72 65 | -to-list.()..."Convert.the.curre |
| 4d20 | 6e 74 20 62 75 66 66 65 72 20 43 53 53 20 63 6f 6e 74 65 6e 74 20 69 6e 74 6f 20 61 20 6c 69 73 | nt.buffer.CSS.content.into.a.lis |
| 4d40 | 74 2e 0a 5c 28 28 74 61 67 20 63 6c 61 73 73 20 28 28 70 72 6f 70 31 20 2e 20 76 61 6c 31 29 20 | t..\((tag.class.((prop1...val1). |
| 4d60 | 2e 2e 2e 29 29 20 2e 2e 2e 29 2e 22 0a 20 20 28 6c 65 74 20 28 28 6c 29 29 0a 20 20 20 20 28 73 | ...))....)."...(let.((l)).....(s |
| 4d80 | 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 | ave-excursion.......(goto-char.( |
| 4da0 | 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 72 65 2d 73 65 61 | point-min)).......(while.(re-sea |
| 4dc0 | 72 63 68 2d 66 6f 72 77 61 72 64 20 22 5c 5c 28 5b 61 2d 7a 41 2d 5a 30 2d 39 2c 20 2d 5c 5c 2e | rch-forward."\\([a-zA-Z0-9,.-\\. |
| 4de0 | 5f 5d 2b 5c 5c 29 20 2a 7b 22 20 6e 69 6c 20 74 29 0a 09 28 6c 65 74 20 28 28 73 65 6c 65 63 74 | _]+\\).*{".nil.t)..(let.((select |
| 4e00 | 6f 72 73 20 28 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 | ors.(split-string.(match-string. |
| 4e20 | 31 29 20 22 2c 22 20 6e 69 6c 20 22 20 2b 22 29 29 0a 09 20 20 20 20 20 20 28 73 74 61 72 74 20 | 1).",".nil.".+"))........(start. |
| 4e40 | 28 70 6f 69 6e 74 29 29 0a 09 20 20 20 20 20 20 28 70 72 6f 70 73 20 27 28 29 29 29 0a 09 20 20 | (point))........(props.'())).... |
| 4e60 | 28 62 61 63 6b 77 61 72 64 2d 63 68 61 72 20 31 29 0a 09 20 20 28 66 6f 72 77 61 72 64 2d 73 65 | (backward-char.1)....(forward-se |
| 4e80 | 78 70 29 0a 09 20 20 28 6c 65 74 20 28 28 74 65 78 74 2d 70 72 6f 70 73 20 28 62 75 66 66 65 72 | xp)....(let.((text-props.(buffer |
| 4ea0 | 2d 73 75 62 73 74 72 69 6e 67 20 73 74 61 72 74 20 28 31 2d 20 28 70 6f 69 6e 74 29 29 29 29 29 | -substring.start.(1-.(point))))) |
| 4ec0 | 0a 09 20 20 20 20 28 64 6f 6c 69 73 74 20 28 70 20 28 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 74 | ......(dolist.(p.(split-string.t |
| 4ee0 | 65 78 74 2d 70 72 6f 70 73 20 22 3b 22 20 74 20 22 5b 5c 6e 20 5d 2a 22 29 29 0a 09 20 20 20 20 | ext-props.";".t."[\n.]*"))...... |
| 4f00 | 20 20 28 63 6c 2d 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 70 72 6f 70 20 | ..(cl-multiple-value-bind.(prop. |
| 4f20 | 76 61 6c 29 20 28 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 70 20 22 3a 22 20 74 20 22 5b 5c 6e 20 | val).(split-string.p.":".t."[\n. |
| 4f40 | 5d 2a 22 29 0a 09 09 28 70 75 73 68 20 28 63 6f 6e 73 20 28 69 6e 74 65 72 6e 20 70 72 6f 70 29 | ]*")...(push.(cons.(intern.prop) |
| 4f60 | 20 76 61 6c 29 20 70 72 6f 70 73 29 29 29 0a 09 20 20 20 20 28 64 6f 6c 69 73 74 20 28 73 65 6c | .val).props)))......(dolist.(sel |
| 4f80 | 20 73 65 6c 65 63 74 6f 72 73 29 0a 09 20 20 20 20 20 20 28 63 6c 2d 6d 75 6c 74 69 70 6c 65 2d | .selectors)........(cl-multiple- |
| 4fa0 | 76 61 6c 75 65 2d 62 69 6e 64 20 28 74 61 67 20 63 6c 61 73 73 29 20 28 73 70 6c 69 74 2d 73 74 | value-bind.(tag.class).(split-st |
| 4fc0 | 72 69 6e 67 20 73 65 6c 20 22 5c 5c 2e 22 29 0a 09 09 28 70 75 73 68 20 28 6c 69 73 74 20 28 69 | ring.sel."\\.")...(push.(list.(i |
| 4fe0 | 66 20 28 73 74 72 69 6e 67 3d 20 74 61 67 20 22 22 29 20 6e 69 6c 20 28 69 6e 74 65 72 6e 20 74 | f.(string=.tag."").nil.(intern.t |
| 5000 | 61 67 29 29 0a 09 09 09 20 20 20 20 28 69 66 20 28 73 74 72 69 6e 67 70 20 63 6c 61 73 73 29 20 | ag))........(if.(stringp.class). |
| 5020 | 28 69 6e 74 65 72 6e 20 63 6c 61 73 73 29 20 6e 69 6c 29 0a 09 09 09 20 20 20 20 70 72 6f 70 73 | (intern.class).nil)........props |
| 5040 | 29 0a 09 09 20 20 20 20 20 20 6c 29 29 29 29 29 29 29 0a 20 20 20 20 6c 29 29 0a 0a 28 64 65 66 | ).........l))))))).....l))..(def |
| 5060 | 75 6e 20 6f 72 67 2d 6d 73 67 2d 63 73 73 2d 66 69 6c 65 2d 74 6f 2d 6c 69 73 74 20 28 66 69 6c | un.org-msg-css-file-to-list.(fil |
| 5080 | 65 29 0a 20 20 22 43 6f 6e 76 65 72 74 20 46 49 4c 45 20 43 53 53 20 63 6f 6e 74 65 6e 74 20 69 | e)..."Convert.FILE.CSS.content.i |
| 50a0 | 6e 74 6f 20 61 20 6c 69 73 74 20 72 65 70 72 65 73 65 6e 74 61 74 69 6f 6e 2e 0a 53 65 65 20 60 | nto.a.list.representation..See.` |
| 50c0 | 6f 72 67 2d 6d 73 67 2d 63 73 73 2d 74 6f 2d 6c 69 73 74 27 2e 22 0a 20 20 28 77 69 74 68 2d 74 | org-msg-css-to-list'."...(with-t |
| 50e0 | 65 6d 70 2d 62 75 66 66 65 72 0a 20 20 20 20 28 69 6e 73 65 72 74 2d 66 69 6c 65 2d 63 6f 6e 74 | emp-buffer.....(insert-file-cont |
| 5100 | 65 6e 74 73 20 66 69 6c 65 29 0a 20 20 20 20 28 6f 72 67 2d 6d 73 67 2d 63 73 73 2d 74 6f 2d 6c | ents.file).....(org-msg-css-to-l |
| 5120 | 69 73 74 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6d 73 67 2d 70 72 6f 70 73 2d 74 6f 2d | ist)))..(defun.org-msg-props-to- |
| 5140 | 73 74 79 6c 65 20 28 70 72 6f 70 73 29 0a 20 20 22 43 6f 6e 76 65 72 74 20 50 52 4f 50 53 20 70 | style.(props)..."Convert.PROPS.p |
| 5160 | 72 6f 70 65 72 74 69 65 73 20 74 6f 20 61 20 43 53 53 20 73 74 79 6c 65 20 73 74 72 69 6e 67 2e | roperties.to.a.CSS.style.string. |
| 5180 | 22 0a 20 20 28 63 6c 2d 66 6c 65 74 20 28 28 63 73 73 2d 73 74 72 20 28 63 73 73 29 0a 09 20 20 | "...(cl-flet.((css-str.(css).... |
| 51a0 | 20 20 20 20 28 63 6f 6e 63 61 74 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 28 63 61 72 20 63 73 | ....(concat.(symbol-name.(car.cs |
| 51c0 | 73 29 29 20 22 3a 22 0a 09 09 20 20 20 20 20 20 28 63 64 72 20 63 73 73 29 20 22 3b 22 29 29 29 | s)).":".........(cdr.css).";"))) |
| 51e0 | 0a 20 20 20 20 28 61 70 70 6c 79 20 27 63 6f 6e 63 61 74 20 28 6d 61 70 63 61 72 20 23 27 63 73 | .....(apply.'concat.(mapcar.#'cs |
| 5200 | 73 2d 73 74 72 20 70 72 6f 70 73 29 29 29 29 0a 0a 28 64 65 66 73 75 62 73 74 20 6f 72 67 2d 6d | s-str.props))))..(defsubst.org-m |
| 5220 | 73 67 2d 69 6e 2d 71 75 6f 74 65 2d 62 6c 6f 63 6b 20 28 29 0a 20 20 22 57 68 65 74 68 65 72 20 | sg-in-quote-block.()..."Whether. |
| 5240 | 70 6f 69 6e 74 20 69 73 20 69 6e 20 61 20 71 75 6f 74 65 20 62 6c 6f 63 6b 2e 22 0a 20 20 28 6c | point.is.in.a.quote.block."...(l |
| 5260 | 65 74 20 28 28 66 61 63 65 20 28 67 65 74 2d 63 68 61 72 2d 70 72 6f 70 65 72 74 79 20 28 70 6f | et.((face.(get-char-property.(po |
| 5280 | 69 6e 74 29 20 27 66 61 63 65 29 29 29 0a 20 20 20 20 28 69 66 20 28 6c 69 73 74 70 20 66 61 63 | int).'face))).....(if.(listp.fac |
| 52a0 | 65 29 0a 09 28 63 6c 2d 66 69 6e 64 20 27 6f 72 67 2d 71 75 6f 74 65 20 66 61 63 65 29 0a 20 20 | e)..(cl-find.'org-quote.face)... |
| 52c0 | 20 20 20 20 28 65 71 20 27 6f 72 67 2d 71 75 6f 74 65 20 66 61 63 65 29 29 29 29 0a 0a 28 64 65 | ....(eq.'org-quote.face))))..(de |
| 52e0 | 66 75 6e 20 6f 72 67 2d 6d 73 67 2d 61 73 63 69 69 2d 62 6c 6f 63 6b 71 75 6f 74 65 20 28 6c 65 | fun.org-msg-ascii-blockquote.(le |
| 5300 | 76 65 6c 20 62 65 67 69 6e 20 65 6e 64 29 0a 20 20 22 52 65 63 75 72 73 69 76 65 6c 79 20 63 6f | vel.begin.end)..."Recursively.co |
| 5320 | 6e 76 65 72 74 20 6c 69 6e 65 73 20 6d 61 74 63 68 69 6e 67 20 74 68 65 20 60 5e 20 3f 3e 2b 20 | nvert.lines.matching.the.`^.?>+. |
| 5340 | 27 20 72 65 67 75 6c 61 72 0a 65 78 70 72 65 73 73 69 6f 6e 20 69 6e 74 6f 20 6d 75 6c 74 69 2d | '.regular.expression.into.multi- |
| 5360 | 6c 65 76 65 6c 20 71 75 6f 74 65 20 62 6c 6f 63 6b 73 2e 22 0a 20 20 28 6c 65 74 20 28 28 73 75 | level.quote.blocks."...(let.((su |
| 5380 | 66 66 69 78 20 28 66 6f 72 6d 61 74 20 22 71 75 6f 74 65 25 64 5c 6e 22 20 6c 65 76 65 6c 29 29 | ffix.(format."quote%d\n".level)) |
| 53a0 | 29 0a 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 62 65 67 69 6e 29 0a 20 20 20 20 28 77 68 69 | ).....(goto-char.begin).....(whi |
| 53c0 | 6c 65 20 28 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 5e 20 3f 3e 2b 20 22 20 65 | le.(re-search-forward."^.?>+.".e |
| 53e0 | 6e 64 20 74 29 0a 20 20 20 20 20 20 28 69 66 20 28 61 6e 64 20 28 3d 20 6c 65 76 65 6c 20 30 29 | nd.t).......(if.(and.(=.level.0) |
| 5400 | 20 28 6f 72 67 2d 6d 73 67 2d 69 6e 2d 71 75 6f 74 65 2d 62 6c 6f 63 6b 29 29 0a 09 20 20 28 6f | .(org-msg-in-quote-block))....(o |
| 5420 | 72 67 2d 6d 73 67 2d 61 73 63 69 69 2d 62 6c 6f 63 6b 71 75 6f 74 65 20 28 31 2b 20 6c 65 76 65 | rg-msg-ascii-blockquote.(1+.leve |
| 5440 | 6c 29 20 62 65 67 69 6e 20 65 6e 64 29 0a 09 28 75 6e 6c 65 73 73 20 28 6f 72 67 2d 69 6e 2d 73 | l).begin.end)..(unless.(org-in-s |
| 5460 | 72 63 2d 62 6c 6f 63 6b 2d 70 29 0a 09 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 6c 69 6e 65 2d | rc-block-p)....(goto-char.(line- |
| 5480 | 62 65 67 69 6e 6e 69 6e 67 2d 70 6f 73 69 74 69 6f 6e 29 29 0a 09 20 20 28 6c 65 74 20 28 28 6e | beginning-position))....(let.((n |
| 54a0 | 65 77 2d 62 65 67 69 6e 20 28 70 6f 69 6e 74 2d 6d 61 72 6b 65 72 29 29 29 0a 09 20 20 20 20 28 | ew-begin.(point-marker)))......( |
| 54c0 | 69 6e 73 65 72 74 20 22 23 2b 62 65 67 69 6e 5f 22 20 73 75 66 66 69 78 29 0a 09 20 20 20 20 28 | insert."#+begin_".suffix)......( |
| 54e0 | 69 66 20 28 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 5e 5c 5c 28 5b 5e 20 3e 5d | if.(re-search-forward."^\\([^.>] |
| 5500 | 5c 5c 7c 20 5b 5e 3e 5d 5c 5c 29 22 20 65 6e 64 20 74 29 0a 09 09 28 67 6f 74 6f 2d 63 68 61 72 | \\|.[^>]\\)".end.t)...(goto-char |
| 5520 | 20 28 6c 69 6e 65 2d 62 65 67 69 6e 6e 69 6e 67 2d 70 6f 73 69 74 69 6f 6e 29 29 0a 09 20 20 20 | .(line-beginning-position))..... |
| 5540 | 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 0a 09 20 20 20 20 | ...(goto-char.(point-max))...... |
| 5560 | 20 20 28 75 6e 6c 65 73 73 20 28 3d 20 28 70 6f 69 6e 74 29 20 28 6c 69 6e 65 2d 62 65 67 69 6e | ..(unless.(=.(point).(line-begin |
| 5580 | 6e 69 6e 67 2d 70 6f 73 69 74 69 6f 6e 29 29 0a 09 09 28 69 6e 73 65 72 74 20 22 5c 6e 22 29 29 | ning-position))...(insert."\n")) |
| 55a0 | 29 0a 09 20 20 20 20 28 69 6e 73 65 72 74 20 22 23 2b 65 6e 64 5f 22 20 73 75 66 66 69 78 29 0a | )......(insert."#+end_".suffix). |
| 55c0 | 09 20 20 20 20 28 6c 65 74 20 28 28 6e 65 77 2d 65 6e 64 20 28 70 6f 69 6e 74 2d 6d 61 72 6b 65 | .....(let.((new-end.(point-marke |
| 55e0 | 72 29 29 29 0a 09 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 6e 65 77 2d 62 65 67 69 6e | r)))........(goto-char.new-begin |
| 5600 | 29 0a 09 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 | )........(while.(re-search-forwa |
| 5620 | 72 64 20 22 5e 20 3f 3e 22 20 6e 65 77 2d 65 6e 64 20 74 29 0a 09 09 28 72 65 70 6c 61 63 65 2d | rd."^.?>".new-end.t)...(replace- |
| 5640 | 6d 61 74 63 68 20 22 22 29 0a 09 09 28 66 6f 72 77 61 72 64 2d 63 68 61 72 20 31 29 29 0a 09 20 | match."")...(forward-char.1))... |
| 5660 | 20 20 20 20 20 28 6f 72 67 2d 6d 73 67 2d 61 73 63 69 69 2d 62 6c 6f 63 6b 71 75 6f 74 65 20 28 | .....(org-msg-ascii-blockquote.( |
| 5680 | 31 2b 20 6c 65 76 65 6c 29 20 6e 65 77 2d 62 65 67 69 6e 20 6e 65 77 2d 65 6e 64 29 29 29 29 29 | 1+.level).new-begin.new-end))))) |
| 56a0 | 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6d 73 67 2d 62 75 69 6c 64 2d 73 74 79 6c 65 20 | )))..(defun.org-msg-build-style. |
| 56c0 | 28 74 61 67 20 63 6c 61 73 73 20 63 73 73 29 0a 20 20 22 47 69 76 65 6e 20 61 20 54 41 47 20 61 | (tag.class.css)..."Given.a.TAG.a |
| 56e0 | 6e 64 20 43 4c 41 53 53 20 73 65 6c 65 63 74 6f 72 2c 20 69 74 20 62 75 69 6c 64 73 20 61 20 43 | nd.CLASS.selector,.it.builds.a.C |
| 5700 | 53 53 20 73 74 79 6c 65 20 73 74 72 69 6e 67 2e 0a 54 68 69 73 20 73 74 72 69 6e 67 20 63 61 6e | SS.style.string..This.string.can |
| 5720 | 20 62 65 20 75 73 65 64 20 61 73 20 61 20 48 54 4d 4c 20 73 74 79 6c 65 20 61 74 74 72 69 62 75 | .be.used.as.a.HTML.style.attribu |
| 5740 | 74 65 20 76 61 6c 75 65 2e 22 0a 20 20 28 63 6c 2d 66 6c 65 74 20 28 28 63 73 73 2d 6d 61 74 63 | te.value."...(cl-flet.((css-matc |
| 5760 | 68 2d 70 20 28 63 73 73 29 0a 09 20 20 20 20 20 20 28 6f 72 20 28 61 6e 64 20 28 65 71 20 74 61 | h-p.(css)........(or.(and.(eq.ta |
| 5780 | 67 20 28 63 61 72 20 63 73 73 29 29 0a 09 09 20 20 20 20 20 20 20 28 65 71 20 63 6c 61 73 73 20 | g.(car.css))..........(eq.class. |
| 57a0 | 28 63 61 64 72 20 63 73 73 29 29 29 0a 09 09 20 20 28 61 6e 64 20 28 6e 6f 74 20 28 63 61 72 20 | (cadr.css))).....(and.(not.(car. |
| 57c0 | 63 73 73 29 29 0a 09 09 20 20 20 20 20 20 20 28 65 71 20 63 6c 61 73 73 20 28 63 61 64 72 20 63 | css))..........(eq.class.(cadr.c |
| 57e0 | 73 73 29 29 29 0a 09 09 20 20 28 61 6e 64 20 28 6e 6f 74 20 28 63 61 64 72 20 63 73 73 29 29 0a | ss))).....(and.(not.(cadr.css)). |
| 5800 | 09 09 20 20 20 20 20 20 20 28 65 71 20 74 61 67 20 28 63 61 72 20 63 73 73 29 29 29 29 29 29 0a | .........(eq.tag.(car.css)))))). |
| 5820 | 20 20 20 20 28 77 68 65 6e 2d 6c 65 74 20 28 28 73 65 6c 20 28 63 6c 2d 72 65 6d 6f 76 65 2d 69 | ....(when-let.((sel.(cl-remove-i |
| 5840 | 66 2d 6e 6f 74 20 23 27 63 73 73 2d 6d 61 74 63 68 2d 70 20 63 73 73 29 29 0a 09 20 20 20 20 20 | f-not.#'css-match-p.css))....... |
| 5860 | 20 20 28 70 72 6f 70 73 20 28 61 70 70 6c 79 20 27 61 70 70 65 6e 64 20 28 6d 61 70 63 61 72 20 | ..(props.(apply.'append.(mapcar. |
| 5880 | 27 63 61 64 64 72 20 73 65 6c 29 29 29 29 0a 20 20 20 20 20 20 28 6f 72 67 2d 6d 73 67 2d 70 72 | 'caddr.sel)))).......(org-msg-pr |
| 58a0 | 6f 70 73 2d 74 6f 2d 73 74 79 6c 65 20 70 72 6f 70 73 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f | ops-to-style.props))))..(defun.o |
| 58c0 | 72 67 2d 6d 73 67 2d 73 74 72 2d 74 6f 2d 6d 61 69 6c 74 6f 20 28 73 74 72 20 63 73 73 29 0a 20 | rg-msg-str-to-mailto.(str.css).. |
| 58e0 | 20 22 43 6f 6e 76 65 72 74 20 61 20 73 74 72 69 6e 67 20 6f 66 20 6d 61 69 6c 20 61 64 64 72 65 | ."Convert.a.string.of.mail.addre |
| 5900 | 73 73 65 73 20 69 6e 74 6f 20 6d 61 69 6c 74 6f 20 61 6e 63 68 6f 72 20 6c 69 6e 6b 73 2e 0a 54 | sses.into.mailto.anchor.links..T |
| 5920 | 61 6b 65 73 20 61 20 73 74 72 69 6e 67 20 53 54 52 20 61 73 20 61 20 70 61 72 61 6d 65 74 65 72 | akes.a.string.STR.as.a.parameter |
| 5940 | 20 61 6e 64 20 62 75 69 6c 64 20 61 20 6c 69 73 74 20 6f 66 20 73 74 72 69 6e 67 20 61 6e 64 0a | .and.build.a.list.of.string.and. |
| 5960 | 6d 61 69 6c 74 6f 20 61 6e 63 68 6f 72 20 6c 69 6e 6b 2e 20 20 49 66 20 61 20 43 53 53 20 73 74 | mailto.anchor.link...If.a.CSS.st |
| 5980 | 79 6c 65 20 6c 69 73 74 20 69 73 20 70 72 6f 76 69 64 65 64 20 61 6e 64 20 61 20 27 61 0a 73 65 | yle.list.is.provided.and.a.'a.se |
| 59a0 | 6c 65 63 74 6f 72 73 20 6f 6e 20 63 6c 61 73 73 20 60 6f 72 67 2d 6d 73 67 2d 72 65 70 6c 79 2d | lectors.on.class.`org-msg-reply- |
| 59c0 | 68 65 61 64 65 72 2d 63 6c 61 73 73 27 2c 20 69 74 20 73 65 74 73 20 74 68 65 0a 73 74 79 6c 65 | header-class',.it.sets.the.style |
| 59e0 | 20 6d 61 69 6c 74 6f 20 61 6e 63 68 6f 72 20 6c 69 6e 6b 20 73 74 79 6c 65 20 61 70 70 72 6f 70 | .mailto.anchor.link.style.approp |
| 5a00 | 72 69 61 74 65 6c 79 2e 22 0a 20 20 28 77 69 74 68 2d 74 65 6d 70 2d 62 75 66 66 65 72 0a 20 20 | riately."...(with-temp-buffer... |
| 5a20 | 20 20 28 69 6e 73 65 72 74 20 73 74 72 29 0a 20 20 20 20 28 6c 65 74 20 28 28 6e 61 6d 65 2d 72 | ..(insert.str).....(let.((name-r |
| 5a40 | 65 67 65 78 70 20 22 5c 5c 28 5b 5b 3a 61 6c 70 68 61 3a 5d 5c 22 5d 5b 5b 3a 61 6c 6e 75 6d 3a | egexp."\\([[:alpha:]\"][[:alnum: |
| 5a60 | 5d 20 2c 5c 22 28 29 40 2e 2f 2d 5d 2b 5c 5c 29 22 29 0a 09 20 20 28 6d 61 69 6c 2d 72 65 67 65 | ].,\"()@./-]+\\)")....(mail-rege |
| 5a80 | 78 70 20 22 3c 5c 5c 28 5b 41 2d 5a 61 2d 7a 30 2d 39 40 2e 2d 5d 2b 5c 5c 29 3e 22 29 0a 09 20 | xp."<\\([A-Za-z0-9@.-]+\\)>")... |
| 5aa0 | 20 28 63 75 72 73 6f 72 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 | .(cursor.(goto-char.(point-min)) |
| 5ac0 | 29 0a 09 20 20 28 73 74 79 6c 65 20 28 6f 72 67 2d 6d 73 67 2d 62 75 69 6c 64 2d 73 74 79 6c 65 | )....(style.(org-msg-build-style |
| 5ae0 | 20 27 61 20 6f 72 67 2d 6d 73 67 2d 72 65 70 6c 79 2d 68 65 61 64 65 72 2d 63 6c 61 73 73 20 63 | .'a.org-msg-reply-header-class.c |
| 5b00 | 73 73 29 29 0a 09 20 20 28 72 65 73 29 29 0a 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 72 65 2d | ss))....(res)).......(while.(re- |
| 5b20 | 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 28 63 6f 6e 63 61 74 20 6e 61 6d 65 2d 72 65 67 65 | search-forward.(concat.name-rege |
| 5b40 | 78 70 20 22 20 22 20 6d 61 69 6c 2d 72 65 67 65 78 70 29 20 6e 69 6c 20 74 29 0a 09 28 75 6e 6c | xp.".".mail-regexp).nil.t)..(unl |
| 5b60 | 65 73 73 20 28 3d 20 28 6d 61 74 63 68 2d 62 65 67 69 6e 6e 69 6e 67 20 30 29 20 63 75 72 73 6f | ess.(=.(match-beginning.0).curso |
| 5b80 | 72 29 0a 09 20 20 28 70 75 73 68 20 28 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 63 75 | r)....(push.(buffer-substring.cu |
| 5ba0 | 72 73 6f 72 20 28 6d 61 74 63 68 2d 62 65 67 69 6e 6e 69 6e 67 20 30 29 29 0a 09 09 72 65 73 29 | rsor.(match-beginning.0))...res) |
| 5bc0 | 0a 09 20 20 28 73 65 74 71 20 63 75 72 73 6f 72 20 28 6d 61 74 63 68 2d 65 6e 64 20 30 29 29 29 | ....(setq.cursor.(match-end.0))) |
| 5be0 | 0a 09 28 6c 65 74 20 28 28 61 6e 63 68 6f 72 20 60 28 61 20 28 28 68 72 65 66 20 2e 20 2c 28 63 | ..(let.((anchor.`(a.((href...,(c |
| 5c00 | 6f 6e 63 61 74 20 22 6d 61 69 6c 74 6f 3a 22 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 30 29 | oncat."mailto:".(match-string.0) |
| 5c20 | 29 29 29 0a 09 09 09 20 20 2c 28 64 65 6c 65 74 65 20 3f 5c 22 20 28 6d 61 74 63 68 2d 73 74 72 | )))......,(delete.?\".(match-str |
| 5c40 | 69 6e 67 20 31 29 29 29 29 29 0a 09 20 20 28 77 68 65 6e 20 73 74 79 6c 65 0a 09 20 20 20 20 28 | ing.1)))))....(when.style......( |
| 5c60 | 70 75 73 68 20 60 28 73 74 79 6c 65 20 2e 20 2c 73 74 79 6c 65 29 20 28 63 61 64 72 20 61 6e 63 | push.`(style...,style).(cadr.anc |
| 5c80 | 68 6f 72 29 29 29 0a 09 20 20 28 70 75 73 68 20 61 6e 63 68 6f 72 20 72 65 73 29 29 29 0a 20 20 | hor)))....(push.anchor.res)))... |
| 5ca0 | 20 20 20 20 28 6e 72 65 76 65 72 73 65 20 72 65 73 29 29 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f | ....(nreverse.res))))..(defmacro |
| 5cc0 | 20 6f 72 67 2d 6d 73 67 2d 6c 69 73 74 2d 66 6f 72 65 61 63 68 20 28 73 70 65 63 20 26 72 65 73 | .org-msg-list-foreach.(spec.&res |
| 5ce0 | 74 20 62 6f 64 79 29 0a 20 20 22 4c 6f 6f 70 20 6f 76 65 72 20 61 20 6c 69 73 74 2e 0a 45 76 61 | t.body)..."Loop.over.a.list..Eva |
| 5d00 | 6c 75 61 74 65 20 42 4f 44 59 20 77 69 74 68 20 56 41 52 20 62 6f 75 6e 64 20 74 6f 20 65 61 63 | luate.BODY.with.VAR.bound.to.eac |
| 5d20 | 68 20 63 6f 6e 73 20 66 72 6f 6d 20 4c 49 53 54 2c 20 69 6e 20 74 75 72 6e 2e 0a 54 68 65 6e 20 | h.cons.from.LIST,.in.turn..Then. |
| 5d40 | 65 76 61 6c 75 61 74 65 20 52 45 53 55 4c 54 20 74 6f 20 67 65 74 20 72 65 74 75 72 6e 20 76 61 | evaluate.RESULT.to.get.return.va |
| 5d60 | 6c 75 65 2c 20 64 65 66 61 75 6c 74 20 6e 69 6c 2e 0a 0a 5c 28 66 6e 20 28 56 41 52 20 4c 49 53 | lue,.default.nil...\(fn.(VAR.LIS |
| 5d80 | 54 29 20 42 4f 44 59 2e 2e 2e 29 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 6e 64 65 6e 74 20 | T).BODY...)"...(declare.(indent. |
| 5da0 | 31 29 29 0a 20 20 60 28 6c 65 74 20 28 28 2c 28 63 61 72 20 73 70 65 63 29 20 2c 28 63 61 64 72 | 1))...`(let.((,(car.spec).,(cadr |
| 5dc0 | 20 73 70 65 63 29 29 29 0a 20 20 20 20 20 28 77 68 69 6c 65 20 2c 28 63 61 72 20 73 70 65 63 29 | .spec)))......(while.,(car.spec) |
| 5de0 | 0a 20 20 20 20 20 20 20 2c 40 62 6f 64 79 0a 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 74 65 6d | ........,@body........(let.((tem |
| 5e00 | 70 20 2c 28 63 61 72 20 73 70 65 63 29 29 29 0a 09 20 28 73 65 74 71 20 2c 28 63 61 72 20 73 70 | p.,(car.spec)))...(setq.,(car.sp |
| 5e20 | 65 63 29 20 28 63 64 72 20 74 65 6d 70 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d | ec).(cdr.temp))))))..(defun.org- |
| 5e40 | 6d 73 67 2d 69 6d 70 72 6f 76 65 2d 72 65 70 6c 79 2d 68 65 61 64 65 72 20 28 78 6d 6c 20 63 73 | msg-improve-reply-header.(xml.cs |
| 5e60 | 73 29 0a 20 20 22 41 65 73 74 68 65 74 69 63 61 6c 6c 79 20 69 6d 70 72 6f 76 65 20 74 68 65 20 | s)..."Aesthetically.improve.the. |
| 5e80 | 72 65 70 6c 79 20 68 65 61 64 65 72 2e 0a 54 68 65 20 72 65 70 6c 79 20 68 65 61 64 65 72 20 28 | reply.header..The.reply.header.( |
| 5ea0 | 46 72 6f 6d 2c 20 53 75 62 6a 65 63 74 2c 20 44 61 74 65 2c 20 2e 2e 2e 29 20 67 65 6e 65 72 61 | From,.Subject,.Date,....).genera |
| 5ec0 | 74 65 64 20 62 79 0a 60 67 6e 75 73 2d 61 72 74 69 63 6c 65 2d 62 72 6f 77 73 65 2d 68 74 6d 6c | ted.by.`gnus-article-browse-html |
| 5ee0 | 2d 61 72 74 69 63 6c 65 27 20 64 6f 65 73 20 6e 6f 74 20 6c 6f 6f 6b 20 76 65 72 79 20 6e 69 63 | -article'.does.not.look.very.nic |
| 5f00 | 65 2e 20 20 58 4d 4c 0a 69 73 20 74 68 65 20 58 4d 4c 20 74 72 65 65 20 61 6e 64 20 43 53 53 20 | e...XML.is.the.XML.tree.and.CSS. |
| 5f20 | 74 68 65 20 73 74 79 6c 65 2e 22 0a 20 20 28 6c 65 74 20 28 28 64 69 76 20 28 61 73 73 71 20 27 | the.style."...(let.((div.(assq.' |
| 5f40 | 64 69 76 20 28 61 73 73 71 20 27 62 6f 64 79 20 78 6d 6c 29 29 29 29 0a 20 20 20 20 3b 3b 20 44 | div.(assq.'body.xml)))).....;;.D |
| 5f60 | 65 6c 65 74 65 20 75 6e 6e 65 63 65 73 73 61 72 79 20 6c 69 6e 65 20 62 72 65 61 6b 0a 20 20 20 | elete.unnecessary.line.break.... |
| 5f80 | 20 28 6c 65 74 20 28 28 65 20 28 63 64 72 20 64 69 76 29 29 29 0a 20 20 20 20 20 20 28 77 68 69 | .(let.((e.(cdr.div))).......(whi |
| 5fa0 | 6c 65 20 65 0a 09 28 69 66 20 28 61 6e 64 20 28 73 74 72 69 6e 67 70 20 28 63 61 72 20 65 29 29 | le.e..(if.(and.(stringp.(car.e)) |
| 5fc0 | 0a 09 09 20 28 65 71 20 28 63 6c 2d 63 61 61 64 72 20 65 29 20 27 62 72 29 0a 09 09 20 28 61 6e | ....(eq.(cl-caadr.e).'br)....(an |
| 5fe0 | 64 20 28 73 74 72 69 6e 67 70 20 28 63 61 64 64 72 20 65 29 29 0a 09 09 20 20 20 20 20 20 28 73 | d.(stringp.(caddr.e)).........(s |
| 6000 | 74 72 69 6e 67 2d 70 72 65 66 69 78 2d 70 20 22 5c 6e c2 a0 22 20 28 63 61 64 64 72 20 65 29 29 | tring-prefix-p."\n..".(caddr.e)) |
| 6020 | 29 29 0a 09 20 20 20 20 28 70 72 6f 67 6e 0a 09 20 20 20 20 20 20 28 73 65 74 63 61 72 20 65 20 | ))......(progn........(setcar.e. |
| 6040 | 28 72 65 70 6c 61 63 65 2d 72 65 67 65 78 70 2d 69 6e 2d 73 74 72 69 6e 67 20 22 5c 6e c2 a0 2b | (replace-regexp-in-string."\n..+ |
| 6060 | 22 20 22 20 22 0a 09 09 09 09 09 09 20 20 28 63 6f 6e 63 61 74 20 28 63 61 72 20 65 29 20 28 63 | ".".".........(concat.(car.e).(c |
| 6080 | 6c 2d 63 61 64 64 72 20 65 29 29 29 29 0a 09 20 20 20 20 20 20 28 73 65 74 63 64 72 20 65 20 28 | l-caddr.e))))........(setcdr.e.( |
| 60a0 | 63 6c 2d 63 64 64 64 72 20 65 29 29 29 0a 09 20 20 28 73 65 74 66 20 65 20 28 63 64 72 20 65 29 | cl-cdddr.e)))....(setf.e.(cdr.e) |
| 60c0 | 29 29 29 29 0a 20 20 20 20 3b 3b 20 41 64 64 20 61 20 62 6f 6c 64 20 70 72 6f 70 65 72 74 79 20 | )))).....;;.Add.a.bold.property. |
| 60e0 | 74 6f 20 74 68 65 20 70 72 65 66 69 78 65 73 20 6c 69 6b 65 20 22 46 72 6f 6d 22 2c 20 22 44 61 | to.the.prefixes.like."From",."Da |
| 6100 | 74 65 22 2c 20 22 53 75 62 6a 65 63 74 22 2c 0a 20 20 20 20 3b 3b 20 2e 2e 2e 20 54 68 69 73 20 | te",."Subject",.....;;.....This. |
| 6120 | 73 65 63 74 69 6f 6e 20 61 6c 73 6f 20 64 65 6c 65 74 65 73 20 74 68 65 20 75 6e 64 65 73 69 72 | section.also.deletes.the.undesir |
| 6140 | 61 62 6c 65 20 68 65 61 64 65 72 20 6c 69 6e 65 73 20 61 73 0a 20 20 20 20 3b 3b 20 73 70 65 63 | able.header.lines.as.....;;.spec |
| 6160 | 69 66 69 65 64 20 62 79 20 60 6f 72 67 2d 6d 73 67 2d 75 6e 64 65 73 69 72 61 62 6c 65 2d 68 65 | ified.by.`org-msg-undesirable-he |
| 6180 | 61 64 65 72 73 27 2e 0a 20 20 28 6c 65 74 20 28 28 65 20 28 63 64 72 20 64 69 76 29 29 29 0a 20 | aders'....(let.((e.(cdr.div))).. |
| 61a0 | 20 20 20 28 77 68 69 6c 65 20 65 0a 20 20 20 20 20 20 28 69 66 20 28 73 74 72 69 6e 67 70 20 28 | ...(while.e.......(if.(stringp.( |
| 61c0 | 63 61 64 72 20 65 29 29 0a 09 20 20 28 6c 65 74 20 28 28 70 72 65 66 69 78 20 28 63 61 72 20 28 | cadr.e))....(let.((prefix.(car.( |
| 61e0 | 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 28 63 61 64 72 20 65 29 20 22 3a 22 29 29 29 29 0a 09 20 | split-string.(cadr.e).":"))))... |
| 6200 | 20 20 20 28 69 66 20 28 63 6c 2d 66 69 6e 64 20 70 72 65 66 69 78 20 6f 72 67 2d 6d 73 67 2d 75 | ...(if.(cl-find.prefix.org-msg-u |
| 6220 | 6e 64 65 73 69 72 61 62 6c 65 2d 68 65 61 64 65 72 73 0a 09 09 09 20 3a 74 65 73 74 20 28 6c 61 | ndesirable-headers.....:test.(la |
| 6240 | 6d 62 64 61 20 28 78 20 79 29 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 2d 70 20 79 20 28 73 74 | mbda.(x.y).(string-match-p.y.(st |
| 6260 | 72 69 6e 67 2d 74 72 69 6d 20 78 29 29 29 29 0a 09 09 28 73 65 74 63 64 72 20 65 20 28 63 64 64 | ring-trim.x))))...(setcdr.e.(cdd |
| 6280 | 64 72 20 65 29 29 0a 09 20 20 20 20 20 20 28 73 65 74 63 61 72 20 28 63 64 72 20 65 29 20 28 72 | dr.e))........(setcar.(cdr.e).(r |
| 62a0 | 65 70 6c 61 63 65 2d 72 65 67 65 78 70 2d 69 6e 2d 73 74 72 69 6e 67 20 70 72 65 66 69 78 20 22 | eplace-regexp-in-string.prefix." |
| 62c0 | 22 20 28 63 61 64 72 20 65 29 29 29 0a 09 20 20 20 20 20 20 28 73 65 74 63 64 72 20 65 20 28 63 | ".(cadr.e)))........(setcdr.e.(c |
| 62e0 | 6f 6e 73 20 60 28 62 20 6e 69 6c 20 2c 28 63 61 70 69 74 61 6c 69 7a 65 20 70 72 65 66 69 78 29 | ons.`(b.nil.,(capitalize.prefix) |
| 6300 | 29 20 28 63 64 72 20 65 29 29 29 0a 09 20 20 20 20 20 20 28 73 65 74 66 20 65 20 28 63 64 64 72 | ).(cdr.e)))........(setf.e.(cddr |
| 6320 | 20 65 29 29 29 29 0a 09 28 73 65 74 66 20 65 20 28 63 64 72 20 65 29 29 29 29 29 0a 20 20 20 20 | .e))))..(setf.e.(cdr.e)))))..... |
| 6340 | 3b 3b 20 54 72 61 6e 73 66 6f 72 6d 20 6d 61 69 6c 20 61 64 64 72 65 73 73 65 73 20 69 6e 74 6f | ;;.Transform.mail.addresses.into |
| 6360 | 20 22 6d 61 69 6c 74 6f 22 20 6c 69 6e 6b 73 0a 20 20 20 20 28 6f 72 67 2d 6d 73 67 2d 6c 69 73 | ."mailto".links.....(org-msg-lis |
| 6380 | 74 2d 66 6f 72 65 61 63 68 20 28 65 20 28 63 64 72 20 64 69 76 29 29 0a 20 20 20 20 20 20 28 77 | t-foreach.(e.(cdr.div)).......(w |
| 63a0 | 68 65 6e 20 28 73 74 72 69 6e 67 70 20 28 63 61 64 72 20 65 29 29 0a 20 20 20 20 09 28 77 68 65 | hen.(stringp.(cadr.e))......(whe |
| 63c0 | 6e 2d 6c 65 74 20 28 28 6d 61 69 6c 74 6f 20 28 6f 72 67 2d 6d 73 67 2d 73 74 72 2d 74 6f 2d 6d | n-let.((mailto.(org-msg-str-to-m |
| 63e0 | 61 69 6c 74 6f 20 28 63 61 64 72 20 65 29 20 63 73 73 29 29 29 0a 20 20 20 20 09 20 20 28 73 65 | ailto.(cadr.e).css)))........(se |
| 6400 | 74 66 20 6d 61 69 6c 74 6f 20 28 61 70 70 65 6e 64 20 6d 61 69 6c 74 6f 20 28 63 64 64 72 20 65 | tf.mailto.(append.mailto.(cddr.e |
| 6420 | 29 29 29 0a 20 20 20 20 09 20 20 28 73 65 74 63 64 72 20 65 20 6d 61 69 6c 74 6f 29 29 29 29 0a | )))........(setcdr.e.mailto)))). |
| 6440 | 20 20 20 20 28 77 68 65 6e 20 63 73 73 0a 20 20 20 20 20 20 28 61 73 73 71 2d 64 65 6c 65 74 65 | ....(when.css.......(assq-delete |
| 6460 | 2d 61 6c 6c 20 27 68 72 20 28 61 73 73 71 20 27 62 6f 64 79 20 78 6d 6c 29 29 0a 20 20 20 20 20 | -all.'hr.(assq.'body.xml))...... |
| 6480 | 20 28 61 73 73 71 2d 64 65 6c 65 74 65 2d 61 6c 6c 20 27 61 6c 69 67 6e 20 28 63 61 64 72 20 64 | .(assq-delete-all.'align.(cadr.d |
| 64a0 | 69 76 29 29 0a 20 20 20 20 20 20 28 73 65 74 66 20 28 63 61 64 72 20 64 69 76 29 20 28 61 73 73 | iv)).......(setf.(cadr.div).(ass |
| 64c0 | 71 2d 64 65 6c 65 74 65 2d 61 6c 6c 20 27 73 74 79 6c 65 20 28 63 61 64 72 20 64 69 76 29 29 29 | q-delete-all.'style.(cadr.div))) |
| 64e0 | 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 64 69 76 2d 73 74 79 6c 65 20 28 6f 72 67 2d 6d 73 67 | .......(let.((div-style.(org-msg |
| 6500 | 2d 62 75 69 6c 64 2d 73 74 79 6c 65 20 27 64 69 76 0a 09 09 09 09 09 20 20 20 20 6f 72 67 2d 6d | -build-style.'div..........org-m |
| 6520 | 73 67 2d 72 65 70 6c 79 2d 68 65 61 64 65 72 2d 63 6c 61 73 73 20 63 73 73 29 29 0a 09 20 20 20 | sg-reply-header-class.css))..... |
| 6540 | 20 28 70 2d 73 74 79 6c 65 20 28 6f 72 67 2d 6d 73 67 2d 62 75 69 6c 64 2d 73 74 79 6c 65 20 27 | .(p-style.(org-msg-build-style.' |
| 6560 | 70 20 6f 72 67 2d 6d 73 67 2d 72 65 70 6c 79 2d 68 65 61 64 65 72 2d 63 6c 61 73 73 20 63 73 73 | p.org-msg-reply-header-class.css |
| 6580 | 29 29 29 0a 09 28 77 68 65 6e 20 64 69 76 2d 73 74 79 6c 65 0a 09 20 20 28 70 75 73 68 20 60 28 | )))..(when.div-style....(push.`( |
| 65a0 | 73 74 79 6c 65 20 2e 20 2c 64 69 76 2d 73 74 79 6c 65 29 20 28 63 61 64 72 20 64 69 76 29 29 29 | style...,div-style).(cadr.div))) |
| 65c0 | 0a 09 28 77 68 65 6e 20 70 2d 73 74 79 6c 65 0a 09 20 20 28 73 65 74 66 20 28 63 64 64 72 20 64 | ..(when.p-style....(setf.(cddr.d |
| 65e0 | 69 76 29 20 60 28 28 70 20 28 28 73 74 79 6c 65 20 2e 20 2c 70 2d 73 74 79 6c 65 29 29 20 2c 40 | iv).`((p.((style...,p-style)).,@ |
| 6600 | 28 63 64 64 72 20 64 69 76 29 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6d | (cddr.div)))))))))..(defun.org-m |
| 6620 | 73 67 2d 78 6d 6c 2d 77 61 6c 6b 20 28 78 6d 6c 20 66 75 6e 29 0a 20 20 22 52 65 63 75 72 73 69 | sg-xml-walk.(xml.fun)..."Recursi |
| 6640 | 76 65 6c 79 20 77 61 6c 6b 20 61 20 58 4d 4c 20 74 72 65 65 20 61 6e 64 20 63 61 6c 6c 20 46 55 | vely.walk.a.XML.tree.and.call.FU |
| 6660 | 4e 20 6f 6e 20 65 61 63 68 20 6e 6f 64 65 2e 22 0a 20 20 28 77 68 65 6e 20 28 6c 69 73 74 70 20 | N.on.each.node."...(when.(listp. |
| 6680 | 78 6d 6c 29 0a 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 66 75 6e 20 78 6d 6c 29 0a 20 20 20 20 28 | xml).....(funcall.fun.xml).....( |
| 66a0 | 64 6f 6c 69 73 74 20 28 65 20 28 63 64 64 72 20 78 6d 6c 29 29 0a 20 20 20 20 20 20 28 6f 72 67 | dolist.(e.(cddr.xml)).......(org |
| 66c0 | 2d 6d 73 67 2d 78 6d 6c 2d 77 61 6c 6b 20 65 20 66 75 6e 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 | -msg-xml-walk.e.fun))))..(defun. |
| 66e0 | 6f 72 67 2d 6d 73 67 2d 68 74 6d 6c 2d 62 75 66 66 65 72 2d 74 6f 2d 78 6d 6c 20 28 26 6f 70 74 | org-msg-html-buffer-to-xml.(&opt |
| 6700 | 69 6f 6e 61 6c 20 62 61 73 65 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 58 4d 4c 20 74 72 | ional.base)..."Return.the.XML.tr |
| 6720 | 65 65 20 6f 66 20 74 68 65 20 63 75 72 72 65 6e 74 20 48 54 4d 4c 20 62 75 66 66 65 72 2e 0a 42 | ee.of.the.current.HTML.buffer..B |
| 6740 | 41 53 45 20 69 73 20 74 68 65 20 70 61 74 68 20 75 73 65 64 20 74 6f 20 63 6f 6e 76 65 72 74 20 | ASE.is.the.path.used.to.convert. |
| 6760 | 74 68 65 20 49 4d 47 20 53 52 43 20 72 65 6c 61 74 69 76 65 20 70 61 74 68 73 20 74 6f 0a 61 62 | the.IMG.SRC.relative.paths.to.ab |
| 6780 | 73 6f 6c 75 74 65 20 70 61 74 68 73 2e 20 20 42 61 73 65 20 69 73 20 61 6c 73 6f 20 75 73 65 64 | solute.paths...Base.is.also.used |
| 67a0 | 20 74 6f 20 6c 6f 63 61 74 65 20 53 56 47 20 6f 62 6a 65 63 74 73 20 74 61 67 20 66 69 6c 65 0a | .to.locate.SVG.objects.tag.file. |
| 67c0 | 61 6e 64 20 69 6e 63 6c 75 64 65 20 74 68 65 20 53 56 47 20 63 6f 6e 74 65 6e 74 20 69 6e 74 6f | and.include.the.SVG.content.into |
| 67e0 | 20 74 68 65 20 65 6d 61 69 6c 20 58 4d 4c 20 74 72 65 65 2e 22 0a 20 20 28 6c 65 74 20 28 28 64 | .the.email.XML.tree."...(let.((d |
| 6800 | 69 72 73 20 28 6c 69 73 74 20 62 61 73 65 20 28 74 65 6d 70 6f 72 61 72 79 2d 66 69 6c 65 2d 64 | irs.(list.base.(temporary-file-d |
| 6820 | 69 72 65 63 74 6f 72 79 29 29 29 29 0a 20 20 20 20 28 63 6c 2d 66 6c 65 74 2a 20 28 28 67 65 74 | irectory)))).....(cl-flet*.((get |
| 6840 | 2d 68 74 6d 6c 2d 72 6f 6f 74 20 28 78 6d 6c 29 0a 09 09 28 63 61 74 63 68 20 27 66 6f 75 6e 64 | -html-root.(xml)...(catch.'found |
| 6860 | 0a 09 09 20 20 28 6f 72 67 2d 6d 73 67 2d 78 6d 6c 2d 77 61 6c 6b 20 78 6d 6c 20 28 6c 61 6d 62 | .....(org-msg-xml-walk.xml.(lamb |
| 6880 | 64 61 20 28 78 29 0a 09 09 09 09 09 20 20 28 77 68 65 6e 20 28 65 71 20 28 63 61 72 20 78 29 20 | da.(x)........(when.(eq.(car.x). |
| 68a0 | 27 68 74 6d 6c 29 0a 09 09 09 09 09 20 20 20 20 28 74 68 72 6f 77 20 27 66 6f 75 6e 64 20 78 29 | 'html)..........(throw.'found.x) |
| 68c0 | 29 29 29 29 29 0a 09 20 20 20 20 20 20 20 28 67 65 74 2d 66 69 6c 65 2d 70 61 74 68 20 28 66 69 | ))))).........(get-file-path.(fi |
| 68e0 | 6c 65 29 0a 09 09 28 6c 65 74 20 28 28 70 61 74 68 73 20 28 63 6c 2d 6d 61 70 63 61 72 20 28 6c | le)...(let.((paths.(cl-mapcar.(l |
| 6900 | 61 6d 62 64 61 20 28 64 29 0a 09 09 09 09 09 20 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 | ambda.(d)........(expand-file-na |
| 6920 | 6d 65 20 66 69 6c 65 20 64 29 29 0a 09 09 09 09 09 64 69 72 73 29 29 29 0a 09 09 20 20 28 63 61 | me.file.d))......dirs))).....(ca |
| 6940 | 72 20 28 63 6c 2d 64 65 6c 65 74 65 2d 69 66 2d 6e 6f 74 20 27 66 69 6c 65 2d 65 78 69 73 74 73 | r.(cl-delete-if-not.'file-exists |
| 6960 | 2d 70 20 70 61 74 68 73 29 29 29 29 0a 09 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 69 6d 67 2d 61 | -p.paths)))).........(make-img-a |
| 6980 | 62 73 20 28 78 6d 6c 29 0a 09 09 28 77 68 65 6e 20 28 65 71 20 28 63 61 72 20 78 6d 6c 29 20 27 | bs.(xml)...(when.(eq.(car.xml).' |
| 69a0 | 69 6d 67 29 0a 09 09 20 20 28 77 68 65 6e 2d 6c 65 74 20 28 28 73 72 63 20 28 61 73 73 71 20 27 | img).....(when-let.((src.(assq.' |
| 69c0 | 73 72 63 20 28 63 61 64 72 20 78 6d 6c 29 29 29 0a 09 09 09 20 20 20 20 20 28 66 69 6c 65 20 28 | src.(cadr.xml))).........(file.( |
| 69e0 | 63 64 72 20 73 72 63 29 29 29 0a 09 09 20 20 20 20 28 75 6e 6c 65 73 73 20 28 6f 72 20 28 75 72 | cdr.src))).......(unless.(or.(ur |
| 6a00 | 6c 2d 74 79 70 65 20 28 75 72 6c 2d 67 65 6e 65 72 69 63 2d 70 61 72 73 65 2d 75 72 6c 20 66 69 | l-type.(url-generic-parse-url.fi |
| 6a20 | 6c 65 29 29 0a 09 09 09 09 28 66 69 6c 65 2d 6e 61 6d 65 2d 61 62 73 6f 6c 75 74 65 2d 70 20 66 | le)).....(file-name-absolute-p.f |
| 6a40 | 69 6c 65 29 29 0a 09 09 20 20 20 20 20 20 28 69 66 2d 6c 65 74 20 28 28 70 61 74 68 20 28 67 65 | ile)).........(if-let.((path.(ge |
| 6a60 | 74 2d 66 69 6c 65 2d 70 61 74 68 20 66 69 6c 65 29 29 29 0a 09 09 09 20 20 28 73 65 74 63 64 72 | t-file-path.file)))......(setcdr |
| 6a80 | 20 73 72 63 20 70 61 74 68 29 0a 09 09 09 28 75 6e 6c 65 73 73 20 28 79 2d 6f 72 2d 6e 2d 70 20 | .src.path)....(unless.(y-or-n-p. |
| 6aa0 | 28 66 6f 72 6d 61 74 20 22 27 25 73 27 20 49 6d 61 67 65 20 69 73 20 6d 69 73 73 69 6e 67 2c 5c | (format."'%s'.Image.is.missing,\ |
| 6ac0 | 0a 20 64 6f 20 79 6f 75 20 77 61 6e 74 20 74 6f 20 63 6f 6e 74 69 6e 75 65 20 3f 22 20 66 69 6c | ..do.you.want.to.continue.?".fil |
| 6ae0 | 65 29 29 0a 09 09 09 20 20 28 65 72 72 6f 72 20 22 27 25 73 27 20 49 6d 61 67 65 20 69 73 20 6d | e))......(error."'%s'.Image.is.m |
| 6b00 | 69 73 73 69 6e 67 22 20 66 69 6c 65 29 29 29 29 29 29 29 0a 09 20 20 20 20 20 20 20 28 69 6e 6c | issing".file))))))).........(inl |
| 6b20 | 69 6e 65 2d 73 76 67 20 28 78 6d 6c 29 0a 09 09 28 77 68 65 6e 20 28 61 6e 64 20 28 65 71 20 28 | ine-svg.(xml)...(when.(and.(eq.( |
| 6b40 | 63 61 72 20 78 6d 6c 29 20 27 6f 62 6a 65 63 74 29 0a 09 09 09 20 20 20 28 73 74 72 69 6e 67 3d | car.xml).'object).......(string= |
| 6b60 | 20 28 63 64 72 20 28 61 73 73 71 20 27 74 79 70 65 20 28 63 61 64 72 20 78 6d 6c 29 29 29 0a 09 | .(cdr.(assq.'type.(cadr.xml))).. |
| 6b80 | 09 09 09 20 20 20 20 22 69 6d 61 67 65 2f 73 76 67 2b 78 6d 6c 22 29 29 0a 09 09 20 20 28 6c 65 | ......."image/svg+xml")).....(le |
| 6ba0 | 74 20 28 28 66 69 6c 65 20 28 67 65 74 2d 66 69 6c 65 2d 70 61 74 68 20 28 61 73 73 6f 63 2d 64 | t.((file.(get-file-path.(assoc-d |
| 6bc0 | 65 66 61 75 6c 74 20 27 64 61 74 61 20 28 63 61 64 72 20 78 6d 6c 29 29 29 29 29 0a 09 09 20 20 | efault.'data.(cadr.xml)))))..... |
| 6be0 | 20 20 28 77 68 65 6e 20 66 69 6c 65 0a 09 09 20 20 20 20 20 20 28 6c 65 74 20 28 28 73 76 67 20 | ..(when.file.........(let.((svg. |
| 6c00 | 28 77 69 74 68 2d 74 65 6d 70 2d 62 75 66 66 65 72 0a 09 09 09 09 20 20 20 28 69 6e 73 65 72 74 | (with-temp-buffer........(insert |
| 6c20 | 2d 66 69 6c 65 2d 63 6f 6e 74 65 6e 74 73 20 66 69 6c 65 29 0a 09 09 09 09 20 20 20 28 77 68 65 | -file-contents.file)........(whe |
| 6c40 | 6e 20 28 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 3c 73 76 67 20 22 20 6e 69 6c 20 74 29 | n.(search-forward."<svg.".nil.t) |
| 6c60 | 0a 09 09 09 09 20 20 20 20 20 28 6c 69 62 78 6d 6c 2d 70 61 72 73 65 2d 78 6d 6c 2d 72 65 67 69 | ..........(libxml-parse-xml-regi |
| 6c80 | 6f 6e 20 28 6d 61 74 63 68 2d 62 65 67 69 6e 6e 69 6e 67 20 30 29 0a 09 09 09 09 09 09 09 20 20 | on.(match-beginning.0).......... |
| 6ca0 | 20 20 20 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 29 29 29 29 0a 09 09 09 28 73 65 74 63 61 72 20 | ....(point-max))))))....(setcar. |
| 6cc0 | 78 6d 6c 20 28 63 61 72 20 73 76 67 29 29 0a 09 09 09 28 73 65 74 63 64 72 20 78 6d 6c 20 28 63 | xml.(car.svg))....(setcdr.xml.(c |
| 6ce0 | 64 72 20 73 76 67 29 29 29 29 29 29 29 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 78 6d 6c 20 | dr.svg)))))))).......(let.((xml. |
| 6d00 | 28 6c 69 62 78 6d 6c 2d 70 61 72 73 65 2d 68 74 6d 6c 2d 72 65 67 69 6f 6e 20 28 70 6f 69 6e 74 | (libxml-parse-html-region.(point |
| 6d20 | 2d 6d 69 6e 29 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 29 29 0a 09 28 73 65 74 66 20 78 6d 6c 20 | -min).(point-max))))..(setf.xml. |
| 6d40 | 28 67 65 74 2d 68 74 6d 6c 2d 72 6f 6f 74 20 78 6d 6c 29 29 0a 09 28 77 68 65 6e 20 62 61 73 65 | (get-html-root.xml))..(when.base |
| 6d60 | 0a 09 20 20 28 6f 72 67 2d 6d 73 67 2d 78 6d 6c 2d 77 61 6c 6b 20 78 6d 6c 20 23 27 6d 61 6b 65 | ....(org-msg-xml-walk.xml.#'make |
| 6d80 | 2d 69 6d 67 2d 61 62 73 29 0a 09 20 20 28 6f 72 67 2d 6d 73 67 2d 78 6d 6c 2d 77 61 6c 6b 20 78 | -img-abs)....(org-msg-xml-walk.x |
| 6da0 | 6d 6c 20 23 27 69 6e 6c 69 6e 65 2d 73 76 67 29 29 0a 09 28 61 73 73 71 2d 64 65 6c 65 74 65 2d | ml.#'inline-svg))..(assq-delete- |
| 6dc0 | 61 6c 6c 20 27 74 69 74 6c 65 20 28 61 73 73 71 20 27 68 65 61 64 20 78 6d 6c 29 29 0a 09 78 6d | all.'title.(assq.'head.xml))..xm |
| 6de0 | 6c 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6d 73 67 2d 6c 6f 61 64 2d 68 74 6d 6c 2d | l))))..(defun.org-msg-load-html- |
| 6e00 | 66 69 6c 65 20 28 66 69 6c 65 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 58 4d 4c 20 74 72 | file.(file)..."Return.the.XML.tr |
| 6e20 | 65 65 20 6f 66 20 61 20 48 54 4d 4c 20 46 49 4c 45 2e 22 0a 20 20 28 77 69 74 68 2d 74 65 6d 70 | ee.of.a.HTML.FILE."...(with-temp |
| 6e40 | 2d 62 75 66 66 65 72 0a 20 20 20 20 28 69 6e 73 65 72 74 2d 66 69 6c 65 2d 63 6f 6e 74 65 6e 74 | -buffer.....(insert-file-content |
| 6e60 | 73 20 66 69 6c 65 29 0a 20 20 20 20 28 6f 72 67 2d 6d 73 67 2d 68 74 6d 6c 2d 62 75 66 66 65 72 | s.file).....(org-msg-html-buffer |
| 6e80 | 2d 74 6f 2d 78 6d 6c 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 64 69 72 65 63 74 6f 72 79 20 66 69 6c | -to-xml.(file-name-directory.fil |
| 6ea0 | 65 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6d 73 67 2d 2d 68 74 6d 6c 2d 71 75 6f 74 | e))))..(defun.org-msg--html-quot |
| 6ec0 | 65 2d 62 6c 6f 63 6b 20 28 71 75 6f 74 65 2d 62 6c 6f 63 6b 20 63 6f 6e 74 65 6e 74 73 20 69 6e | e-block.(quote-block.contents.in |
| 6ee0 | 66 6f 29 0a 20 20 28 6c 65 74 20 28 28 63 75 72 20 28 63 61 72 20 28 6f 72 67 2d 65 6c 65 6d 65 | fo)...(let.((cur.(car.(org-eleme |
| 6f00 | 6e 74 2d 70 72 6f 70 65 72 74 79 20 3a 61 74 74 72 5f 68 74 6d 6c 20 71 75 6f 74 65 2d 62 6c 6f | nt-property.:attr_html.quote-blo |
| 6f20 | 63 6b 29 29 29 29 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 28 61 6e 64 20 63 75 72 20 28 73 74 72 | ck)))).....(unless.(and.cur.(str |
| 6f40 | 69 6e 67 2d 6d 61 74 63 68 2d 70 20 22 3a 63 6c 61 73 73 20 22 20 63 75 72 29 29 0a 20 20 20 20 | ing-match-p.":class.".cur))..... |
| 6f60 | 20 20 28 6c 65 74 20 28 28 61 74 74 72 20 28 63 6f 6e 63 61 74 20 22 3a 63 6c 61 73 73 20 71 75 | ..(let.((attr.(concat.":class.qu |
| 6f80 | 6f 74 65 30 22 20 28 77 68 65 6e 20 63 75 72 20 22 20 22 29 20 63 75 72 29 29 29 0a 09 28 6f 72 | ote0".(when.cur.".").cur)))..(or |
| 6fa0 | 67 2d 65 6c 65 6d 65 6e 74 2d 70 75 74 2d 70 72 6f 70 65 72 74 79 20 71 75 6f 74 65 2d 62 6c 6f | g-element-put-property.quote-blo |
| 6fc0 | 63 6b 20 3a 61 74 74 72 5f 68 74 6d 6c 20 28 6c 69 73 74 20 61 74 74 72 29 29 29 29 29 0a 20 20 | ck.:attr_html.(list.attr)))))... |
| 6fe0 | 28 6f 72 67 2d 68 74 6d 6c 2d 71 75 6f 74 65 2d 62 6c 6f 63 6b 20 71 75 6f 74 65 2d 62 6c 6f 63 | (org-html-quote-block.quote-bloc |
| 7000 | 6b 20 63 6f 6e 74 65 6e 74 73 20 69 6e 66 6f 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6d 73 | k.contents.info))..(defun.org-ms |
| 7020 | 67 2d 2d 68 74 6d 6c 2d 73 70 65 63 69 61 6c 2d 62 6c 6f 63 6b 20 28 73 70 65 63 69 61 6c 2d 62 | g--html-special-block.(special-b |
| 7040 | 6c 6f 63 6b 20 63 6f 6e 74 65 6e 74 73 20 69 6e 66 6f 29 0a 20 20 22 53 69 6d 69 6c 61 72 20 74 | lock.contents.info)..."Similar.t |
| 7060 | 6f 20 60 6f 72 67 2d 68 74 6d 6c 2d 73 70 65 63 69 61 6c 2d 62 6c 6f 63 6b 27 20 62 75 74 20 74 | o.`org-html-special-block'.but.t |
| 7080 | 72 65 61 74 20 73 70 65 63 69 61 6c 6c 79 20 74 68 65 0a 62 6c 6f 63 6b 73 20 6f 66 20 74 79 70 | reat.specially.the.blocks.of.typ |
| 70a0 | 65 20 5c 22 71 75 6f 74 65 2e 2e 2e 5c 22 20 67 65 6e 65 72 61 74 65 64 20 62 79 20 60 6f 72 67 | e.\"quote...\".generated.by.`org |
| 70c0 | 2d 6d 73 67 2d 61 73 63 69 69 2d 62 6c 6f 63 6b 71 75 6f 74 65 27 2e 22 0a 20 20 28 6c 65 74 20 | -msg-ascii-blockquote'."...(let. |
| 70e0 | 28 28 62 6c 6f 63 6b 2d 74 79 70 65 20 28 6f 72 67 2d 65 6c 65 6d 65 6e 74 2d 70 72 6f 70 65 72 | ((block-type.(org-element-proper |
| 7100 | 74 79 20 3a 74 79 70 65 20 73 70 65 63 69 61 6c 2d 62 6c 6f 63 6b 29 29 29 0a 20 20 20 20 28 63 | ty.:type.special-block))).....(c |
| 7120 | 6f 6e 64 0a 20 20 20 20 20 28 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 71 75 6f 74 65 5b 30 | ond......((string-match."quote[0 |
| 7140 | 2d 39 5d 2b 22 20 62 6c 6f 63 6b 2d 74 79 70 65 29 0a 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 | -9]+".block-type).......(let*.(( |
| 7160 | 63 6f 6e 74 65 6e 74 73 20 28 6f 72 20 63 6f 6e 74 65 6e 74 73 20 22 22 29 29 0a 09 20 20 20 20 | contents.(or.contents.""))...... |
| 7180 | 20 28 61 20 28 6f 72 67 2d 68 74 6d 6c 2d 2d 6d 61 6b 65 2d 61 74 74 72 69 62 75 74 65 2d 73 74 | .(a.(org-html--make-attribute-st |
| 71a0 | 72 69 6e 67 20 60 28 3a 63 6c 61 73 73 20 2c 62 6c 6f 63 6b 2d 74 79 70 65 29 29 29 29 0a 09 28 | ring.`(:class.,block-type))))..( |
| 71c0 | 66 6f 72 6d 61 74 20 22 3c 62 6c 6f 63 6b 71 75 6f 74 65 20 25 73 3e 5c 6e 25 73 5c 6e 3c 2f 62 | format."<blockquote.%s>\n%s\n</b |
| 71e0 | 6c 6f 63 6b 71 75 6f 74 65 3e 22 20 61 20 63 6f 6e 74 65 6e 74 73 29 29 29 0a 20 20 20 20 20 28 | lockquote>".a.contents)))......( |
| 7200 | 74 20 28 6f 72 67 2d 68 74 6d 6c 2d 73 70 65 63 69 61 6c 2d 62 6c 6f 63 6b 20 73 70 65 63 69 61 | t.(org-html-special-block.specia |
| 7220 | 6c 2d 62 6c 6f 63 6b 20 63 6f 6e 74 65 6e 74 73 20 69 6e 66 6f 29 29 29 29 29 0a 0a 28 64 65 66 | l-block.contents.info)))))..(def |
| 7240 | 75 6e 20 6f 72 67 2d 6d 73 67 2d 6f 72 67 2d 74 6f 2d 78 6d 6c 20 28 73 74 72 20 26 6f 70 74 69 | un.org-msg-org-to-xml.(str.&opti |
| 7260 | 6f 6e 61 6c 20 62 61 73 65 29 0a 20 20 22 54 72 61 6e 73 66 6f 72 6d 20 74 68 65 20 53 54 52 20 | onal.base)..."Transform.the.STR. |
| 7280 | 4f 72 67 20 73 74 72 69 6e 67 20 69 6e 74 6f 20 61 20 58 4d 4c 20 74 72 65 65 2e 0a 42 41 53 45 | Org.string.into.a.XML.tree..BASE |
| 72a0 | 20 69 73 20 74 68 65 20 70 61 74 68 20 75 73 65 64 20 74 6f 20 63 6f 6e 76 65 72 74 20 74 68 65 | .is.the.path.used.to.convert.the |
| 72c0 | 20 49 4d 47 20 53 52 43 20 72 65 6c 61 74 69 76 65 20 70 61 74 68 73 20 74 6f 0a 61 62 73 6f 6c | .IMG.SRC.relative.paths.to.absol |
| 72e0 | 75 74 65 20 70 61 74 68 73 2e 22 0a 20 20 28 73 61 76 65 2d 77 69 6e 64 6f 77 2d 65 78 63 75 72 | ute.paths."...(save-window-excur |
| 7300 | 73 69 6f 6e 0a 20 20 20 20 28 77 69 74 68 2d 74 65 6d 70 2d 62 75 66 66 65 72 0a 20 20 20 20 20 | sion.....(with-temp-buffer...... |
| 7320 | 20 28 69 6e 73 65 72 74 20 73 74 72 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 6f 72 67 2d 6d 73 | .(insert.str).......(when.org-ms |
| 7340 | 67 2d 63 6f 6e 76 65 72 74 2d 63 69 74 61 74 69 6f 6e 0a 09 28 6f 72 67 2d 6d 73 67 2d 61 73 63 | g-convert-citation..(org-msg-asc |
| 7360 | 69 69 2d 62 6c 6f 63 6b 71 75 6f 74 65 20 30 20 28 70 6f 69 6e 74 2d 6d 69 6e 2d 6d 61 72 6b 65 | ii-blockquote.0.(point-min-marke |
| 7380 | 72 29 20 28 70 6f 69 6e 74 2d 6d 61 78 2d 6d 61 72 6b 65 72 29 29 29 0a 20 20 20 20 20 20 28 6c | r).(point-max-marker))).......(l |
| 73a0 | 65 74 20 28 28 6f 72 67 2d 68 74 6d 6c 2d 74 61 62 6c 65 2d 64 65 66 61 75 6c 74 2d 61 74 74 72 | et.((org-html-table-default-attr |
| 73c0 | 69 62 75 74 65 73 20 6e 69 6c 29 0a 09 20 20 20 20 28 6f 72 67 2d 68 74 6d 6c 2d 68 74 6d 6c 69 | ibutes.nil)......(org-html-htmli |
| 73e0 | 7a 65 2d 6f 75 74 70 75 74 2d 74 79 70 65 20 27 69 6e 6c 69 6e 65 2d 63 73 73 29 0a 09 20 20 20 | ze-output-type.'inline-css)..... |
| 7400 | 20 28 6f 72 67 2d 68 74 6d 6c 2d 68 65 61 64 2d 69 6e 63 6c 75 64 65 2d 73 63 72 69 70 74 73 20 | .(org-html-head-include-scripts. |
| 7420 | 6e 69 6c 29 0a 09 20 20 20 20 28 6f 72 67 2d 68 74 6d 6c 2d 68 65 61 64 2d 69 6e 63 6c 75 64 65 | nil)......(org-html-head-include |
| 7440 | 2d 64 65 66 61 75 6c 74 2d 73 74 79 6c 65 20 6e 69 6c 29 0a 09 20 20 20 20 28 6f 72 67 2d 6d 73 | -default-style.nil)......(org-ms |
| 7460 | 67 2d 65 78 70 6f 72 74 2d 69 6e 2d 70 72 6f 67 72 65 73 73 20 74 29 29 0a 09 28 6c 65 74 20 28 | g-export-in-progress.t))..(let.( |
| 7480 | 28 62 75 66 20 28 67 65 6e 65 72 61 74 65 2d 6e 65 77 2d 62 75 66 66 65 72 2d 6e 61 6d 65 20 22 | (buf.(generate-new-buffer-name." |
| 74a0 | 20 2a 4f 72 67 4d 73 67 20 48 54 4d 4c 20 45 78 70 6f 72 74 2a 22 29 29 29 0a 09 20 20 28 77 69 | .*OrgMsg.HTML.Export*")))....(wi |
| 74c0 | 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 6f 72 67 2d 65 78 70 6f 72 74 2d 74 6f | th-current-buffer.(org-export-to |
| 74e0 | 2d 62 75 66 66 65 72 20 27 6f 72 67 2d 6d 73 67 2d 68 74 6d 6c 20 62 75 66 29 0a 09 20 20 20 20 | -buffer.'org-msg-html.buf)...... |
| 7500 | 28 6c 65 74 20 28 28 78 6d 6c 20 28 6f 72 67 2d 6d 73 67 2d 68 74 6d 6c 2d 62 75 66 66 65 72 2d | (let.((xml.(org-msg-html-buffer- |
| 7520 | 74 6f 2d 78 6d 6c 20 62 61 73 65 29 29 29 0a 09 20 20 20 20 20 20 28 6b 69 6c 6c 2d 62 75 66 66 | to-xml.base)))........(kill-buff |
| 7540 | 65 72 29 0a 09 20 20 20 20 20 20 78 6d 6c 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 | er)........xml)))))))..(defun.or |
| 7560 | 67 2d 6d 73 67 2d 65 78 70 6f 72 74 2d 61 73 2d 74 65 78 74 20 28 63 68 61 72 73 65 74 20 73 74 | g-msg-export-as-text.(charset.st |
| 7580 | 72 29 0a 20 20 22 54 72 61 6e 73 66 6f 72 6d 20 74 68 65 20 4f 72 67 20 53 54 52 20 69 6e 74 6f | r)..."Transform.the.Org.STR.into |
| 75a0 | 20 61 20 70 6c 61 69 6e 20 74 65 78 74 2e 22 0a 20 20 28 77 69 74 68 2d 74 65 6d 70 2d 62 75 66 | .a.plain.text."...(with-temp-buf |
| 75c0 | 66 65 72 0a 20 20 20 20 28 69 6e 73 65 72 74 20 73 74 72 29 0a 20 20 20 20 28 63 6c 2d 6c 65 74 | fer.....(insert.str).....(cl-let |
| 75e0 | 66 20 28 28 28 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 20 23 27 66 69 6c 6c 2d 72 65 67 69 | f.(((symbol-function.#'fill-regi |
| 7600 | 6f 6e 29 20 23 27 69 67 6e 6f 72 65 29 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 6f 72 67 2d | on).#'ignore)).......(let.((org- |
| 7620 | 61 73 63 69 69 2d 63 68 61 72 73 65 74 20 63 68 61 72 73 65 74 29 0a 09 20 20 20 20 28 6f 72 67 | ascii-charset.charset)......(org |
| 7640 | 2d 61 73 63 69 69 2d 69 6e 6e 65 72 2d 6d 61 72 67 69 6e 20 30 29 0a 09 20 20 20 20 28 66 69 6c | -ascii-inner-margin.0)......(fil |
| 7660 | 65 73 20 27 28 29 29 29 0a 09 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 | es.'()))..(with-current-buffer.( |
| 7680 | 6f 72 67 2d 61 73 63 69 69 2d 65 78 70 6f 72 74 2d 61 73 2d 61 73 63 69 69 29 0a 09 20 20 28 77 | org-ascii-export-as-ascii)....(w |
| 76a0 | 68 69 6c 65 20 28 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 3c 66 69 6c 65 3a 5c | hile.(re-search-forward."<file:\ |
| 76c0 | 5c 5c 28 5b 61 2d 7a 30 2d 39 41 5a 5f 5c 2e 2f 2d 5d 2b 5c 5c 5c 29 3e 22 20 6e 69 6c 20 74 29 | \\([a-z0-9AZ_\./-]+\\\)>".nil.t) |
| 76e0 | 0a 09 20 20 20 20 28 73 65 74 66 20 66 69 6c 65 73 20 28 70 75 73 68 20 28 6d 61 74 63 68 2d 73 | ......(setf.files.(push.(match-s |
| 7700 | 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 20 31 29 20 66 69 6c 65 73 29 29 29 0a | tring-no-properties.1).files))). |
| 7720 | 09 20 20 28 63 6c 2d 76 61 6c 75 65 73 20 28 62 75 66 66 65 72 2d 73 74 72 69 6e 67 29 20 66 69 | ...(cl-values.(buffer-string).fi |
| 7740 | 6c 65 73 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6d 73 67 2d 65 78 70 6f 72 74 | les))))))..(defun.org-msg-export |
| 7760 | 2d 61 73 2d 68 74 6d 6c 20 28 73 74 72 29 0a 20 20 22 54 72 61 6e 73 66 6f 72 6d 20 74 68 65 20 | -as-html.(str)..."Transform.the. |
| 7780 | 4f 72 67 20 53 54 52 20 69 6e 74 6f 20 68 74 6d 6c 2e 22 0a 20 20 28 70 72 6f 67 32 0a 20 20 20 | Org.STR.into.html."...(prog2.... |
| 77a0 | 20 20 20 28 6f 72 67 2d 65 78 70 6f 72 74 2d 64 65 66 69 6e 65 2d 64 65 72 69 76 65 64 2d 62 61 | ...(org-export-define-derived-ba |
| 77c0 | 63 6b 65 6e 64 20 27 6f 72 67 2d 6d 73 67 2d 68 74 6d 6c 20 27 68 74 6d 6c 0a 09 3a 74 72 61 6e | ckend.'org-msg-html.'html..:tran |
| 77e0 | 73 6c 61 74 65 2d 61 6c 69 73 74 20 60 28 28 73 70 65 63 69 61 6c 2d 62 6c 6f 63 6b 20 2e 20 6f | slate-alist.`((special-block...o |
| 7800 | 72 67 2d 6d 73 67 2d 2d 68 74 6d 6c 2d 73 70 65 63 69 61 6c 2d 62 6c 6f 63 6b 29 0a 09 09 09 20 | rg-msg--html-special-block)..... |
| 7820 | 20 20 28 71 75 6f 74 65 2d 62 6c 6f 63 6b 20 2e 20 6f 72 67 2d 6d 73 67 2d 2d 68 74 6d 6c 2d 71 | ..(quote-block...org-msg--html-q |
| 7840 | 75 6f 74 65 2d 62 6c 6f 63 6b 29 0a 09 09 09 20 20 20 2c 40 28 6f 72 67 2d 65 78 70 6f 72 74 2d | uote-block).......,@(org-export- |
| 7860 | 67 65 74 2d 61 6c 6c 2d 74 72 61 6e 73 63 6f 64 65 72 73 20 27 68 74 6d 6c 29 29 29 0a 20 20 20 | get-all-transcoders.'html))).... |
| 7880 | 20 20 20 28 6f 72 67 2d 6d 73 67 2d 78 6d 6c 2d 74 6f 2d 73 74 72 20 28 6f 72 67 2d 6d 73 67 2d | ...(org-msg-xml-to-str.(org-msg- |
| 78a0 | 62 75 69 6c 64 20 73 74 72 29 29 0a 20 20 20 20 28 73 65 74 71 20 6f 72 67 2d 65 78 70 6f 72 74 | build.str)).....(setq.org-export |
| 78c0 | 2d 72 65 67 69 73 74 65 72 65 64 2d 62 61 63 6b 65 6e 64 73 0a 09 20 20 28 63 6c 2d 64 65 6c 65 | -registered-backends....(cl-dele |
| 78e0 | 74 65 2d 69 66 20 28 61 70 70 6c 79 2d 70 61 72 74 69 61 6c 6c 79 20 27 65 71 20 27 6f 72 67 2d | te-if.(apply-partially.'eq.'org- |
| 7900 | 6d 73 67 2d 68 74 6d 6c 29 0a 09 09 09 6f 72 67 2d 65 78 70 6f 72 74 2d 72 65 67 69 73 74 65 72 | msg-html)....org-export-register |
| 7920 | 65 64 2d 62 61 63 6b 65 6e 64 73 0a 09 09 09 3a 6b 65 79 20 27 6f 72 67 2d 65 78 70 6f 72 74 2d | ed-backends....:key.'org-export- |
| 7940 | 62 61 63 6b 65 6e 64 2d 6e 61 6d 65 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6d 73 67 | backend-name))))..(defun.org-msg |
| 7960 | 2d 6c 6f 61 64 2d 63 73 73 20 28 29 0a 20 20 22 4c 6f 61 64 20 74 68 65 20 43 53 53 20 64 65 66 | -load-css.()..."Load.the.CSS.def |
| 7980 | 69 6e 69 74 69 6f 6e 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 60 6f 72 67 2d 6d 73 67 2d 65 6e | inition.according.to.`org-msg-en |
| 79a0 | 66 6f 72 63 65 2d 63 73 73 27 2e 22 0a 20 20 28 63 6f 6e 64 20 28 28 6c 69 73 74 70 20 6f 72 67 | force-css'."...(cond.((listp.org |
| 79c0 | 2d 6d 73 67 2d 65 6e 66 6f 72 63 65 2d 63 73 73 29 20 6f 72 67 2d 6d 73 67 2d 65 6e 66 6f 72 63 | -msg-enforce-css).org-msg-enforc |
| 79e0 | 65 2d 63 73 73 29 0a 09 28 28 73 74 72 69 6e 67 70 20 6f 72 67 2d 6d 73 67 2d 65 6e 66 6f 72 63 | e-css)..((stringp.org-msg-enforc |
| 7a00 | 65 2d 63 73 73 29 0a 09 20 28 6f 72 67 2d 6d 73 67 2d 63 73 73 2d 66 69 6c 65 2d 74 6f 2d 6c 69 | e-css)...(org-msg-css-file-to-li |
| 7a20 | 73 74 20 6f 72 67 2d 6d 73 67 2d 65 6e 66 6f 72 63 65 2d 63 73 73 29 29 29 29 0a 0a 28 64 65 66 | st.org-msg-enforce-css))))..(def |
| 7a40 | 6d 61 63 72 6f 20 6f 72 67 2d 6d 73 67 2d 77 69 74 68 2d 6d 61 74 63 68 2d 70 72 6f 70 20 28 70 | macro.org-msg-with-match-prop.(p |
| 7a60 | 72 6f 70 20 26 72 65 73 74 20 62 6f 64 79 29 0a 20 20 22 4c 6f 6f 6b 20 66 6f 72 20 74 68 65 20 | rop.&rest.body)..."Look.for.the. |
| 7a80 | 4f 72 67 20 50 52 4f 50 20 70 72 6f 70 65 72 74 79 20 61 6e 64 20 63 61 6c 6c 20 40 42 4f 44 59 | Org.PROP.property.and.call.@BODY |
| 7aa0 | 20 6f 6e 20 6d 61 74 63 68 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 6e 64 65 6e 74 20 31 | .on.match."...(declare.(indent.1 |
| 7ac0 | 29 29 0a 20 20 60 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 28 67 6f 74 6f | ))...`(save-excursion......(goto |
| 7ae0 | 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 20 28 77 68 65 6e 20 28 72 | -char.(point-min))......(when.(r |
| 7b00 | 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 28 6f 72 67 2d 72 65 2d 70 72 6f 70 65 72 74 | e-search-forward.(org-re-propert |
| 7b20 | 79 20 2c 70 72 6f 70 20 6e 69 6c 20 74 29 20 6e 69 6c 20 74 29 0a 20 20 20 20 20 20 20 28 70 72 | y.,prop.nil.t).nil.t)........(pr |
| 7b40 | 6f 67 6e 20 2c 40 62 6f 64 79 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6d 73 67 2d 67 | ogn.,@body))))..(defun.org-msg-g |
| 7b60 | 65 74 2d 70 72 6f 70 20 28 70 72 6f 70 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 4f 72 67 | et-prop.(prop)..."Return.the.Org |
| 7b80 | 20 50 52 4f 50 20 70 72 6f 70 65 72 74 79 20 76 61 6c 75 65 2c 20 6e 69 6c 20 69 66 20 75 6e 64 | .PROP.property.value,.nil.if.und |
| 7ba0 | 65 66 69 6e 65 64 2e 22 0a 20 20 28 6f 72 67 2d 6d 73 67 2d 77 69 74 68 2d 6d 61 74 63 68 2d 70 | efined."...(org-msg-with-match-p |
| 7bc0 | 72 6f 70 20 70 72 6f 70 0a 20 20 20 20 28 72 65 61 64 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 | rop.prop.....(read.(match-string |
| 7be0 | 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 20 33 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 | -no-properties.3))))..(defun.org |
| 7c00 | 2d 6d 73 67 2d 73 65 74 2d 70 72 6f 70 20 28 70 72 6f 70 20 76 61 6c 29 0a 20 20 22 53 65 74 20 | -msg-set-prop.(prop.val)..."Set. |
| 7c20 | 74 68 65 20 4f 72 67 20 50 52 4f 50 20 70 72 6f 70 65 72 74 79 20 76 61 6c 75 65 20 74 6f 20 56 | the.Org.PROP.property.value.to.V |
| 7c40 | 41 4c 2e 22 0a 20 20 28 6f 72 67 2d 6d 73 67 2d 77 69 74 68 2d 6d 61 74 63 68 2d 70 72 6f 70 20 | AL."...(org-msg-with-match-prop. |
| 7c60 | 70 72 6f 70 0a 20 20 20 20 28 72 65 70 6c 61 63 65 2d 6d 61 74 63 68 20 28 66 6f 72 6d 61 74 20 | prop.....(replace-match.(format. |
| 7c80 | 22 25 53 22 20 76 61 6c 29 20 6e 69 6c 20 6e 69 6c 20 6e 69 6c 20 33 29 29 29 0a 0a 28 64 65 66 | "%S".val).nil.nil.nil.3)))..(def |
| 7ca0 | 75 6e 20 6f 72 67 2d 6d 73 67 2d 62 75 69 6c 64 20 28 6f 72 67 29 0a 20 20 22 42 75 69 6c 64 20 | un.org-msg-build.(org)..."Build. |
| 7cc0 | 61 6e 64 20 72 65 74 75 72 6e 20 74 68 65 20 58 4d 4c 20 74 72 65 65 20 66 6f 72 20 4f 52 47 20 | and.return.the.XML.tree.for.ORG. |
| 7ce0 | 73 74 72 69 6e 67 2e 22 0a 20 20 28 6c 65 74 20 28 28 63 73 73 20 28 6f 72 67 2d 6d 73 67 2d 6c | string."...(let.((css.(org-msg-l |
| 7d00 | 6f 61 64 2d 63 73 73 29 29 29 0a 20 20 20 20 28 63 6c 2d 66 6c 65 74 20 28 28 65 6e 66 6f 72 63 | oad-css))).....(cl-flet.((enforc |
| 7d20 | 65 20 28 78 6d 6c 29 0a 09 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 74 61 67 20 28 63 61 72 | e.(xml).........(let*.((tag.(car |
| 7d40 | 20 78 6d 6c 29 29 0a 09 09 20 20 20 20 20 20 28 74 6d 70 20 28 61 73 73 71 20 27 63 6c 61 73 73 | .xml)).........(tmp.(assq.'class |
| 7d60 | 20 28 63 61 64 72 20 78 6d 6c 29 29 29 0a 09 09 20 20 20 20 20 20 28 63 6c 61 73 73 20 28 77 68 | .(cadr.xml))).........(class.(wh |
| 7d80 | 65 6e 20 74 6d 70 0a 09 09 09 20 20 20 20 20 20 20 28 69 6e 74 65 72 6e 20 28 63 64 72 20 74 6d | en.tmp...........(intern.(cdr.tm |
| 7da0 | 70 29 29 29 29 0a 09 09 20 20 20 20 20 20 28 73 74 79 6c 65 20 28 6f 72 67 2d 6d 73 67 2d 62 75 | p)))).........(style.(org-msg-bu |
| 7dc0 | 69 6c 64 2d 73 74 79 6c 65 20 74 61 67 20 63 6c 61 73 73 20 63 73 73 29 29 29 0a 09 09 20 28 77 | ild-style.tag.class.css)))....(w |
| 7de0 | 68 65 6e 20 73 74 79 6c 65 0a 09 09 20 20 20 28 73 65 74 66 20 28 63 61 64 72 20 78 6d 6c 29 20 | hen.style......(setf.(cadr.xml). |
| 7e00 | 28 61 73 73 71 2d 64 65 6c 65 74 65 2d 61 6c 6c 20 27 73 74 79 6c 65 20 28 63 61 64 72 20 78 6d | (assq-delete-all.'style.(cadr.xm |
| 7e20 | 6c 29 29 29 0a 09 09 20 20 20 28 73 65 74 66 20 28 63 61 64 72 20 78 6d 6c 29 20 28 61 73 73 71 | l)))......(setf.(cadr.xml).(assq |
| 7e40 | 2d 64 65 6c 65 74 65 2d 61 6c 6c 20 27 63 6c 61 73 73 20 28 63 61 64 72 20 78 6d 6c 29 29 29 0a | -delete-all.'class.(cadr.xml))). |
| 7e60 | 09 09 20 20 20 28 70 75 73 68 20 60 28 73 74 79 6c 65 20 2e 20 2c 73 74 79 6c 65 29 20 28 63 61 | .....(push.`(style...,style).(ca |
| 7e80 | 64 72 20 78 6d 6c 29 29 29 29 29 0a 09 20 20 20 20 20 20 28 66 69 78 2d 69 6d 67 2d 73 72 63 20 | dr.xml)))))........(fix-img-src. |
| 7ea0 | 28 78 6d 6c 29 0a 09 09 28 6c 65 74 20 28 28 73 72 63 20 28 61 73 73 71 20 27 73 72 63 20 28 63 | (xml)...(let.((src.(assq.'src.(c |
| 7ec0 | 61 64 72 20 78 6d 6c 29 29 29 29 0a 09 09 20 20 28 77 68 65 6e 20 28 73 74 72 69 6e 67 2d 70 72 | adr.xml)))).....(when.(string-pr |
| 7ee0 | 65 66 69 78 2d 70 20 22 66 69 6c 65 3a 2f 2f 22 20 28 63 64 72 20 73 72 63 29 29 0a 09 09 20 20 | efix-p."file://".(cdr.src))..... |
| 7f00 | 20 20 28 73 65 74 63 64 72 20 73 72 63 20 28 73 75 62 73 74 72 69 6e 67 20 28 63 64 72 20 73 72 | ..(setcdr.src.(substring.(cdr.sr |
| 7f20 | 63 29 20 28 6c 65 6e 67 74 68 20 22 66 69 6c 65 3a 2f 2f 22 29 29 29 29 29 29 0a 09 20 20 20 20 | c).(length."file://"))))))...... |
| 7f40 | 20 20 28 73 65 74 2d 63 68 61 72 73 65 74 20 28 78 6d 6c 29 0a 09 09 28 77 68 65 6e 20 28 65 71 | ..(set-charset.(xml)...(when.(eq |
| 7f60 | 20 27 6d 65 74 61 20 28 63 61 72 20 78 6d 6c 29 29 0a 09 09 20 20 28 6c 65 74 20 28 28 6c 20 28 | .'meta.(car.xml)).....(let.((l.( |
| 7f80 | 63 61 64 72 20 78 6d 6c 29 29 29 0a 09 09 20 20 20 20 28 63 6f 6e 64 20 28 28 73 74 72 69 6e 67 | cadr.xml))).......(cond.((string |
| 7fa0 | 3d 20 28 64 6f 77 6e 63 61 73 65 20 28 61 6c 69 73 74 2d 67 65 74 20 27 68 74 74 70 2d 65 71 75 | =.(downcase.(alist-get.'http-equ |
| 7fc0 | 69 76 20 6c 20 22 3f 22 29 29 0a 09 09 09 09 20 20 20 20 22 63 6f 6e 74 65 6e 74 2d 74 79 70 65 | iv.l."?"))........."content-type |
| 7fe0 | 22 29 0a 09 09 09 20 20 20 28 73 65 74 66 20 28 61 6c 69 73 74 2d 67 65 74 20 27 63 6f 6e 74 65 | ").......(setf.(alist-get.'conte |
| 8000 | 6e 74 20 6c 29 0a 09 09 09 09 20 28 66 6f 72 6d 61 74 20 22 74 65 78 74 2f 68 74 6d 6c 3b 63 68 | nt.l)......(format."text/html;ch |
| 8020 | 61 72 73 65 74 3d 25 73 22 0a 09 09 09 09 09 20 6f 72 67 2d 68 74 6d 6c 2d 63 6f 64 69 6e 67 2d | arset=%s".......org-html-coding- |
| 8040 | 73 79 73 74 65 6d 29 29 29 0a 09 09 09 20 20 28 28 61 6c 69 73 74 2d 67 65 74 20 27 63 68 61 72 | system)))......((alist-get.'char |
| 8060 | 73 65 74 20 6c 29 0a 09 09 09 20 20 20 28 73 65 74 66 20 28 61 6c 69 73 74 2d 67 65 74 20 27 63 | set.l).......(setf.(alist-get.'c |
| 8080 | 68 61 72 73 65 74 20 6c 29 0a 09 09 09 09 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 6f 72 67 2d | harset.l)......(symbol-name.org- |
| 80a0 | 68 74 6d 6c 2d 63 6f 64 69 6e 67 2d 73 79 73 74 65 6d 29 29 29 29 29 29 29 29 0a 20 20 20 20 20 | html-coding-system))))))))...... |
| 80c0 | 20 28 6c 65 74 2a 20 28 28 72 65 70 6c 79 20 28 6f 72 67 2d 6d 73 67 2d 6f 72 67 2d 74 6f 2d 78 | .(let*.((reply.(org-msg-org-to-x |
| 80e0 | 6d 6c 20 6f 72 67 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 29 29 0a 09 20 20 20 20 | ml.org.default-directory))...... |
| 8100 | 20 28 74 65 6d 70 2d 66 69 6c 65 73 20 28 6f 72 67 2d 6d 73 67 2d 67 65 74 2d 70 72 6f 70 20 22 | .(temp-files.(org-msg-get-prop." |
| 8120 | 72 65 70 6c 79 2d 74 6f 22 29 29 0a 09 20 20 20 20 20 28 6f 72 69 67 69 6e 61 6c 20 28 77 68 65 | reply-to")).......(original.(whe |
| 8140 | 6e 20 74 65 6d 70 2d 66 69 6c 65 73 0a 09 09 09 20 28 6f 72 67 2d 6d 73 67 2d 6c 6f 61 64 2d 68 | n.temp-files.....(org-msg-load-h |
| 8160 | 74 6d 6c 2d 66 69 6c 65 20 28 63 61 72 20 74 65 6d 70 2d 66 69 6c 65 73 29 29 29 29 29 0a 09 28 | tml-file.(car.temp-files)))))..( |
| 8180 | 61 73 73 71 2d 64 65 6c 65 74 65 2d 61 6c 6c 20 27 68 31 20 28 61 73 73 71 20 27 64 69 76 20 28 | assq-delete-all.'h1.(assq.'div.( |
| 81a0 | 61 73 73 71 20 27 62 6f 64 79 20 72 65 70 6c 79 29 29 29 0a 09 28 6f 72 67 2d 6d 73 67 2d 78 6d | assq.'body.reply)))..(org-msg-xm |
| 81c0 | 6c 2d 77 61 6c 6b 20 28 61 73 73 71 20 27 62 6f 64 79 20 72 65 70 6c 79 29 20 23 27 66 69 78 2d | l-walk.(assq.'body.reply).#'fix- |
| 81e0 | 69 6d 67 2d 73 72 63 29 0a 09 28 77 68 65 6e 20 63 73 73 0a 09 20 20 28 61 73 73 71 2d 64 65 6c | img-src)..(when.css....(assq-del |
| 8200 | 65 74 65 2d 61 6c 6c 20 27 73 74 79 6c 65 20 28 61 73 73 71 20 27 68 65 61 64 20 72 65 70 6c 79 | ete-all.'style.(assq.'head.reply |
| 8220 | 29 29 0a 09 20 20 28 6f 72 67 2d 6d 73 67 2d 78 6d 6c 2d 77 61 6c 6b 20 28 61 73 73 71 20 27 62 | ))....(org-msg-xml-walk.(assq.'b |
| 8240 | 6f 64 79 20 72 65 70 6c 79 29 20 23 27 65 6e 66 6f 72 63 65 29 29 0a 09 28 69 66 20 28 6e 6f 74 | ody.reply).#'enforce))..(if.(not |
| 8260 | 20 6f 72 69 67 69 6e 61 6c 29 0a 09 20 20 20 20 28 61 73 73 71 2d 64 65 6c 65 74 65 2d 61 6c 6c | .original)......(assq-delete-all |
| 8280 | 20 27 73 63 72 69 70 74 20 28 61 73 73 71 20 27 68 65 61 64 20 72 65 70 6c 79 29 29 0a 09 20 20 | .'script.(assq.'head.reply)).... |
| 82a0 | 28 6f 72 67 2d 6d 73 67 2d 69 6d 70 72 6f 76 65 2d 72 65 70 6c 79 2d 68 65 61 64 65 72 20 6f 72 | (org-msg-improve-reply-header.or |
| 82c0 | 69 67 69 6e 61 6c 20 63 73 73 29 0a 09 20 20 28 70 75 73 68 20 28 6f 72 20 28 61 73 73 71 20 27 | iginal.css)....(push.(or.(assq.' |
| 82e0 | 61 72 74 69 63 6c 65 20 28 61 73 73 71 20 27 62 6f 64 79 20 72 65 70 6c 79 29 29 0a 09 09 20 20 | article.(assq.'body.reply))..... |
| 8300 | 20 20 28 61 73 73 71 20 27 64 69 76 20 28 61 73 73 71 20 27 62 6f 64 79 20 72 65 70 6c 79 29 29 | ..(assq.'div.(assq.'body.reply)) |
| 8320 | 29 0a 09 09 28 63 64 64 72 20 28 61 73 73 71 20 27 62 6f 64 79 20 6f 72 69 67 69 6e 61 6c 29 29 | )...(cddr.(assq.'body.original)) |
| 8340 | 29 29 0a 09 28 77 68 65 6e 20 6f 72 69 67 69 6e 61 6c 0a 09 20 20 28 6f 72 67 2d 6d 73 67 2d 78 | ))..(when.original....(org-msg-x |
| 8360 | 6d 6c 2d 77 61 6c 6b 20 6f 72 69 67 69 6e 61 6c 20 23 27 73 65 74 2d 63 68 61 72 73 65 74 29 29 | ml-walk.original.#'set-charset)) |
| 8380 | 0a 09 28 6f 72 20 6f 72 69 67 69 6e 61 6c 20 72 65 70 6c 79 29 29 29 29 29 0a 0a 28 64 65 66 75 | ..(or.original.reply)))))..(defu |
| 83a0 | 6e 20 6f 72 67 2d 6d 73 67 2d 70 72 65 76 69 65 77 20 28 61 72 67 29 0a 20 20 22 45 78 70 6f 72 | n.org-msg-preview.(arg)..."Expor |
| 83c0 | 74 20 61 6e 64 20 64 69 73 70 6c 61 79 20 74 68 65 20 63 75 72 72 65 6e 74 20 4f 72 67 4d 73 67 | t.and.display.the.current.OrgMsg |
| 83e0 | 20 62 75 66 66 65 72 2e 0a 49 74 20 75 73 65 73 20 74 68 65 20 6c 61 73 74 20 61 6c 74 65 72 6e | .buffer..It.uses.the.last.altern |
| 8400 | 61 74 69 76 65 20 6f 66 20 74 68 65 20 60 61 6c 74 65 72 6e 61 74 69 76 65 73 27 20 70 72 6f 70 | ative.of.the.`alternatives'.prop |
| 8420 | 65 72 74 79 20 61 73 0a 74 68 65 20 61 6c 74 65 72 6e 61 74 69 76 65 73 20 73 68 6f 75 6c 64 20 | erty.as.the.alternatives.should. |
| 8440 | 62 65 20 6c 69 73 74 65 64 20 69 6e 20 69 6e 63 72 65 61 73 69 6e 67 20 6f 72 64 65 72 20 6f 66 | be.listed.in.increasing.order.of |
| 8460 | 0a 70 72 65 66 65 72 65 6e 63 65 2e 20 20 49 66 20 74 68 69 73 20 61 6c 74 65 72 6e 61 74 69 76 | .preference...If.this.alternativ |
| 8480 | 65 20 69 73 20 60 68 74 6d 6c 27 20 69 74 20 63 61 6c 6c 73 20 74 68 65 0a 60 62 72 6f 77 73 65 | e.is.`html'.it.calls.the.`browse |
| 84a0 | 2d 75 72 6c 27 20 66 75 6e 63 74 69 6f 6e 20 74 6f 20 64 69 73 70 6c 61 79 20 74 68 65 20 65 78 | -url'.function.to.display.the.ex |
| 84c0 | 70 6f 72 74 65 64 20 6d 61 69 6c 20 69 6e 20 61 20 77 65 62 0a 62 72 6f 77 73 65 72 2e 20 20 57 | ported.mail.in.a.web.browser...W |
| 84e0 | 69 74 68 20 74 68 65 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 20 41 52 47 20 73 65 74 2c | ith.the.prefix.argument.ARG.set, |
| 8500 | 20 69 74 20 63 61 6c 6c 73 0a 60 78 77 69 64 67 65 74 2d 77 65 62 6b 69 74 2d 62 72 6f 77 73 65 | .it.calls.`xwidget-webkit-browse |
| 8520 | 2d 75 72 6c 27 20 69 6e 73 74 65 61 64 20 6f 66 20 60 62 72 6f 77 73 65 2d 75 72 6c 27 2e 20 20 | -url'.instead.of.`browse-url'... |
| 8540 | 46 6f 72 20 61 6c 6c 0a 6f 74 68 65 72 20 61 6c 74 65 72 6e 61 74 69 76 65 73 2c 20 69 74 20 64 | For.all.other.alternatives,.it.d |
| 8560 | 69 73 70 6c 61 79 73 20 74 68 65 20 65 78 70 6f 72 74 65 64 20 72 65 73 75 6c 74 20 69 6e 20 61 | isplays.the.exported.result.in.a |
| 8580 | 20 62 75 66 66 65 72 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 22 29 0a 20 20 | .buffer."...(interactive."P")... |
| 85a0 | 28 6c 65 74 2a 20 28 28 70 72 65 66 65 72 72 65 64 20 28 6c 61 73 74 20 28 6f 72 67 2d 6d 73 67 | (let*.((preferred.(last.(org-msg |
| 85c0 | 2d 67 65 74 2d 70 72 6f 70 20 22 61 6c 74 65 72 6e 61 74 69 76 65 73 22 29 29 29 0a 09 20 28 61 | -get-prop."alternatives")))...(a |
| 85e0 | 6c 74 20 28 63 61 61 72 20 28 6f 72 67 2d 6d 73 67 2d 62 75 69 6c 64 2d 61 6c 74 65 72 6e 61 74 | lt.(caar.(org-msg-build-alternat |
| 8600 | 69 76 65 73 20 70 72 65 66 65 72 72 65 64 20 74 29 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 | ives.preferred.t)))).....(cond.( |
| 8620 | 28 73 74 72 69 6e 67 3d 20 28 63 61 72 20 61 6c 74 29 20 22 74 65 78 74 2f 68 74 6d 6c 22 29 0a | (string=.(car.alt)."text/html"). |
| 8640 | 09 20 20 20 28 73 61 76 65 2d 77 69 6e 64 6f 77 2d 65 78 63 75 72 73 69 6f 6e 0a 09 20 20 20 20 | ....(save-window-excursion...... |
| 8660 | 20 28 6c 65 74 20 28 28 62 72 6f 77 73 65 2d 75 72 6c 2d 62 72 6f 77 73 65 72 2d 66 75 6e 63 74 | .(let.((browse-url-browser-funct |
| 8680 | 69 6f 6e 20 28 69 66 20 61 72 67 0a 09 09 09 09 09 09 20 20 20 20 27 78 77 69 64 67 65 74 2d 77 | ion.(if.arg...........'xwidget-w |
| 86a0 | 65 62 6b 69 74 2d 62 72 6f 77 73 65 2d 75 72 6c 0a 09 09 09 09 09 09 20 20 62 72 6f 77 73 65 2d | ebkit-browse-url.........browse- |
| 86c0 | 75 72 6c 2d 62 72 6f 77 73 65 72 2d 66 75 6e 63 74 69 6f 6e 29 29 0a 09 09 20 20 20 28 74 6d 70 | url-browser-function))......(tmp |
| 86e0 | 2d 66 69 6c 65 20 28 6d 61 6b 65 2d 74 65 6d 70 2d 66 69 6c 65 20 22 6f 72 67 2d 6d 73 67 22 20 | -file.(make-temp-file."org-msg". |
| 8700 | 6e 69 6c 20 22 2e 68 74 6d 6c 22 29 29 29 0a 09 20 20 20 20 20 20 20 28 77 69 74 68 2d 74 65 6d | nil.".html"))).........(with-tem |
| 8720 | 70 2d 62 75 66 66 65 72 0a 09 09 20 28 69 6e 73 65 72 74 20 28 63 64 72 20 61 6c 74 29 29 0a 09 | p-buffer....(insert.(cdr.alt)).. |
| 8740 | 09 20 28 77 72 69 74 65 2d 66 69 6c 65 20 74 6d 70 2d 66 69 6c 65 29 29 0a 09 20 20 20 20 20 20 | ..(write-file.tmp-file))........ |
| 8760 | 20 28 62 72 6f 77 73 65 2d 75 72 6c 20 28 63 6f 6e 63 61 74 20 22 66 69 6c 65 3a 2f 2f 22 20 74 | .(browse-url.(concat."file://".t |
| 8780 | 6d 70 2d 66 69 6c 65 29 29 29 29 29 0a 09 20 20 28 74 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 | mp-file)))))....(t.(with-current |
| 87a0 | 2d 62 75 66 66 65 72 20 28 67 65 74 2d 62 75 66 66 65 72 2d 63 72 65 61 74 65 0a 09 09 09 09 20 | -buffer.(get-buffer-create...... |
| 87c0 | 20 20 28 66 6f 72 6d 61 74 20 22 2a 4f 72 67 4d 73 67 20 25 73 20 50 72 65 76 69 65 77 2a 22 20 | ..(format."*OrgMsg.%s.Preview*". |
| 87e0 | 28 63 61 72 20 61 6c 74 29 29 29 0a 09 20 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d 72 65 67 69 | (car.alt))).........(delete-regi |
| 8800 | 6f 6e 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 0a 09 20 20 20 | on.(point-min).(point-max))..... |
| 8820 | 20 20 20 20 28 69 6e 73 65 72 74 20 28 63 64 72 20 61 6c 74 29 29 29 0a 09 20 20 20 20 20 28 64 | ....(insert.(cdr.alt))).......(d |
| 8840 | 69 73 70 6c 61 79 2d 62 75 66 66 65 72 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 29 | isplay-buffer.(current-buffer))) |
| 8860 | 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6d 73 67 2d 73 65 70 61 72 61 74 65 2d 6d 6d 6c | )))..(defun.org-msg-separate-mml |
| 8880 | 2d 61 6e 64 2d 6f 72 67 20 28 26 6f 70 74 69 6f 6e 61 6c 20 70 72 65 73 65 72 76 65 29 0a 20 20 | -and-org.(&optional.preserve)... |
| 88a0 | 22 53 65 70 61 72 61 74 65 20 74 68 65 20 4f 72 67 20 4d 6f 64 65 20 61 6e 64 20 74 68 65 20 4d | "Separate.the.Org.Mode.and.the.M |
| 88c0 | 4d 4c 20 63 6f 6e 74 65 6e 74 20 6f 66 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 | ML.content.of.the.current.buffer |
| 88e0 | 2e 0a 52 65 74 75 72 6e 73 20 74 68 65 20 4d 4d 4c 20 63 6f 6e 74 65 6e 74 20 61 6e 64 20 74 68 | ..Returns.the.MML.content.and.th |
| 8900 | 65 20 4f 72 67 20 4d 6f 64 65 20 63 6f 6e 74 65 6e 74 20 61 73 20 61 20 6c 69 73 74 20 6f 66 20 | e.Org.Mode.content.as.a.list.of. |
| 8920 | 74 77 6f 0a 73 74 72 69 6e 67 73 2e 20 49 66 20 50 52 45 53 45 52 56 45 20 69 73 20 6e 69 6c 2c | two.strings..If.PRESERVE.is.nil, |
| 8940 | 20 74 68 65 20 4d 4d 4c 20 63 6f 6e 74 65 6e 74 20 69 73 20 72 65 6d 6f 76 65 64 20 66 72 6f 6d | .the.MML.content.is.removed.from |
| 8960 | 20 74 68 65 0a 62 75 66 66 65 72 20 6f 74 68 65 72 77 69 73 65 2c 20 74 68 65 20 62 75 66 66 65 | .the.buffer.otherwise,.the.buffe |
| 8980 | 72 20 69 73 20 6c 65 66 74 20 75 6e 74 6f 75 63 68 65 64 2e 22 0a 20 20 28 6c 65 74 20 28 28 62 | r.is.left.untouched."...(let.((b |
| 89a0 | 75 66 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 0a 09 6d 6d 6c 20 6f 72 67 29 0a 20 | uf.(current-buffer))..mml.org).. |
| 89c0 | 20 20 20 28 77 68 65 6e 20 70 72 65 73 65 72 76 65 0a 20 20 20 20 20 20 28 73 65 74 66 20 62 75 | ...(when.preserve.......(setf.bu |
| 89e0 | 66 20 28 67 65 6e 65 72 61 74 65 2d 6e 65 77 2d 62 75 66 66 65 72 20 22 20 2a 74 65 6d 70 2a 22 | f.(generate-new-buffer.".*temp*" |
| 8a00 | 29 29 0a 20 20 20 20 20 20 28 63 6f 70 79 2d 74 6f 2d 62 75 66 66 65 72 20 62 75 66 20 28 70 6f | )).......(copy-to-buffer.buf.(po |
| 8a20 | 69 6e 74 2d 6d 69 6e 29 20 28 6f 72 67 2d 6d 73 67 2d 65 6e 64 29 29 29 0a 20 20 20 20 28 77 69 | int-min).(org-msg-end))).....(wi |
| 8a40 | 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 62 75 66 0a 20 20 20 20 20 20 28 67 6f 74 | th-current-buffer.buf.......(got |
| 8a60 | 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 | o-char.(point-min)).......(let.( |
| 8a80 | 73 74 61 63 6b 20 72 65 73 29 0a 09 28 77 68 69 6c 65 20 28 72 65 2d 73 65 61 72 63 68 2d 66 6f | stack.res)..(while.(re-search-fo |
| 8aa0 | 72 77 61 72 64 20 22 3c 23 5c 5c 5c 28 2f 3f 5b 61 2d 7a 5d 2b 5c 5c 5c 29 5b 20 3e 5d 22 20 6e | rward."<#\\\(/?[a-z]+\\\)[.>]".n |
| 8ac0 | 69 6c 20 74 29 0a 09 20 20 28 75 6e 6c 65 73 73 20 28 6f 72 67 2d 69 6e 2d 62 6c 6f 63 6b 2d 70 | il.t)....(unless.(org-in-block-p |
| 8ae0 | 20 27 28 22 22 29 29 0a 09 20 20 20 20 28 6c 65 74 20 28 28 74 61 67 20 28 6d 61 74 63 68 2d 73 | .'(""))......(let.((tag.(match-s |
| 8b00 | 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 20 31 29 29 29 0a 09 20 20 20 20 20 20 | tring-no-properties.1)))........ |
| 8b20 | 28 75 6e 6c 65 73 73 20 28 73 74 72 69 6e 67 3d 20 74 61 67 20 22 73 65 63 75 72 65 22 29 0a 09 | (unless.(string=.tag."secure").. |
| 8b40 | 09 28 69 66 20 28 73 74 72 69 6e 67 3d 20 28 73 75 62 73 74 72 69 6e 67 20 74 61 67 20 30 20 31 | .(if.(string=.(substring.tag.0.1 |
| 8b60 | 29 20 22 2f 22 29 0a 09 09 20 20 20 20 28 6c 65 74 20 28 28 63 75 72 20 28 70 6f 70 20 73 74 61 | )."/").......(let.((cur.(pop.sta |
| 8b80 | 63 6b 29 29 29 0a 09 09 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 6e 6f 74 20 28 73 74 72 69 6e | ck))).........(while.(not.(strin |
| 8ba0 | 67 3d 20 28 73 75 62 73 74 72 69 6e 67 20 74 61 67 20 31 29 20 28 63 61 72 20 63 75 72 29 29 29 | g=.(substring.tag.1).(car.cur))) |
| 8bc0 | 0a 09 09 09 28 73 65 74 66 20 63 75 72 20 28 70 6f 70 20 73 74 61 63 6b 29 29 29 0a 09 09 20 20 | ....(setf.cur.(pop.stack)))..... |
| 8be0 | 20 20 20 20 28 75 6e 6c 65 73 73 20 73 74 61 63 6b 0a 09 09 09 28 70 75 73 68 20 28 6c 69 73 74 | ....(unless.stack....(push.(list |
| 8c00 | 20 28 63 64 72 20 63 75 72 29 20 28 6c 69 6e 65 2d 65 6e 64 2d 70 6f 73 69 74 69 6f 6e 29 29 20 | .(cdr.cur).(line-end-position)). |
| 8c20 | 72 65 73 29 29 29 0a 09 09 20 20 28 70 75 73 68 20 28 63 6f 6e 73 20 74 61 67 20 28 6c 69 6e 65 | res))).....(push.(cons.tag.(line |
| 8c40 | 2d 62 65 67 69 6e 6e 69 6e 67 2d 70 6f 73 69 74 69 6f 6e 29 29 20 73 74 61 63 6b 29 29 29 29 29 | -beginning-position)).stack))))) |
| 8c60 | 29 0a 09 28 73 65 74 66 20 6d 6d 6c 20 28 6d 61 70 63 6f 6e 63 61 74 20 28 6c 61 6d 62 64 61 20 | )..(setf.mml.(mapconcat.(lambda. |
| 8c80 | 28 78 29 0a 09 09 09 20 20 20 20 20 20 20 28 61 70 70 6c 79 20 27 64 65 6c 65 74 65 2d 61 6e 64 | (x)...........(apply.'delete-and |
| 8ca0 | 2d 65 78 74 72 61 63 74 2d 72 65 67 69 6f 6e 20 78 29 29 0a 09 09 09 20 20 20 20 20 72 65 73 20 | -extract-region.x)).........res. |
| 8cc0 | 22 5c 6e 22 29 29 0a 09 28 73 65 74 66 20 6f 72 67 20 28 62 75 66 66 65 72 2d 73 75 62 73 74 72 | "\n"))..(setf.org.(buffer-substr |
| 8ce0 | 69 6e 67 20 28 6f 72 67 2d 6d 73 67 2d 73 74 61 72 74 29 20 28 6f 72 67 2d 6d 73 67 2d 65 6e 64 | ing.(org-msg-start).(org-msg-end |
| 8d00 | 29 29 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 70 72 65 73 65 72 76 65 0a 09 28 6b 69 6c 6c | )))).......(when.preserve..(kill |
| 8d20 | 2d 62 75 66 66 65 72 29 29 29 0a 20 20 20 20 28 63 6c 2d 76 61 6c 75 65 73 20 6d 6d 6c 20 6f 72 | -buffer))).....(cl-values.mml.or |
| 8d40 | 67 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6d 73 67 2d 62 75 69 6c 64 2d 61 6c 74 65 72 | g)))..(defun.org-msg-build-alter |
| 8d60 | 6e 61 74 69 76 65 73 20 28 61 6c 74 65 72 6e 61 74 69 76 65 73 20 26 6f 70 74 69 6f 6e 61 6c 20 | natives.(alternatives.&optional. |
| 8d80 | 70 72 65 73 65 72 76 65 29 0a 20 20 22 42 75 69 6c 64 20 74 68 65 20 63 6f 6e 74 65 6e 74 73 20 | preserve)..."Build.the.contents. |
| 8da0 | 6f 66 20 74 68 65 20 63 75 72 72 65 6e 74 20 4f 72 67 2d 6d 73 67 20 62 75 66 66 65 72 20 66 6f | of.the.current.Org-msg.buffer.fo |
| 8dc0 | 72 20 65 61 63 68 20 6f 66 20 74 68 65 20 41 4c 54 45 52 4e 41 54 49 56 45 53 2e 0a 49 66 20 50 | r.each.of.the.ALTERNATIVES..If.P |
| 8de0 | 52 45 53 45 52 56 45 20 69 73 20 74 2c 20 69 74 20 64 6f 65 73 20 6e 6f 74 20 61 6c 74 65 72 20 | RESERVE.is.t,.it.does.not.alter. |
| 8e00 | 74 68 65 20 63 6f 6e 74 65 6e 74 20 6f 66 20 74 68 65 0a 62 75 66 66 65 72 20 28 63 66 2e 20 60 | the.content.of.the.buffer.(cf..` |
| 8e20 | 6f 72 67 2d 6d 73 67 2d 73 65 70 61 72 61 74 65 2d 6d 6d 6c 2d 61 6e 64 2d 6f 72 67 27 29 2e 0a | org-msg-separate-mml-and-org').. |
| 8e40 | 0a 52 65 74 75 72 6e 73 20 61 20 6c 69 73 74 20 6f 66 20 74 68 72 65 65 20 69 74 65 6d 73 3a 0a | .Returns.a.list.of.three.items:. |
| 8e60 | 31 2e 20 41 6e 20 61 73 73 6f 63 69 61 74 69 6f 6e 20 6c 69 73 74 20 6f 66 20 74 68 65 20 65 78 | 1..An.association.list.of.the.ex |
| 8e80 | 70 6f 72 74 65 64 20 61 6c 74 65 72 6e 61 74 69 76 65 73 0a 32 2e 20 41 20 6c 69 73 74 20 6f 66 | ported.alternatives.2..A.list.of |
| 8ea0 | 20 61 74 74 61 63 68 6d 65 6e 74 73 20 67 65 6e 65 72 61 74 65 64 20 64 75 72 69 6e 67 20 74 68 | .attachments.generated.during.th |
| 8ec0 | 65 20 65 78 70 6f 72 74 61 74 69 6f 6e 20 69 66 20 61 6e 79 0a 33 2e 20 4d 4d 4c 20 74 61 67 73 | e.exportation.if.any.3..MML.tags |
| 8ee0 | 20 61 73 20 61 20 73 74 72 69 6e 67 20 69 66 20 61 6e 79 22 0a 20 20 28 6c 65 74 20 28 6d 6d 6c | .as.a.string.if.any"...(let.(mml |
| 8f00 | 20 6f 72 67 20 66 69 6c 65 73 29 0a 20 20 20 20 28 63 6c 2d 6d 75 6c 74 69 70 6c 65 2d 76 61 6c | .org.files).....(cl-multiple-val |
| 8f20 | 75 65 2d 73 65 74 71 20 28 6d 6d 6c 20 6f 72 67 29 0a 20 20 20 20 20 20 28 6f 72 67 2d 6d 73 67 | ue-setq.(mml.org).......(org-msg |
| 8f40 | 2d 73 65 70 61 72 61 74 65 2d 6d 6d 6c 2d 61 6e 64 2d 6f 72 67 20 70 72 65 73 65 72 76 65 29 29 | -separate-mml-and-org.preserve)) |
| 8f60 | 0a 20 20 20 20 28 63 6c 2d 66 6c 65 74 20 28 28 65 78 70 6f 72 74 20 28 61 6c 74 29 0a 09 20 20 | .....(cl-flet.((export.(alt).... |
| 8f80 | 20 20 20 20 20 28 6c 65 74 20 28 28 65 78 70 6f 72 74 65 72 20 28 63 64 72 20 28 61 73 73 71 20 | .....(let.((exporter.(cdr.(assq. |
| 8fa0 | 61 6c 74 20 6f 72 67 2d 6d 73 67 2d 61 6c 74 65 72 6e 61 74 69 76 65 2d 65 78 70 6f 72 74 65 72 | alt.org-msg-alternative-exporter |
| 8fc0 | 73 29 29 29 29 0a 09 09 20 28 75 6e 6c 65 73 73 20 65 78 70 6f 72 74 65 72 0a 09 09 20 20 20 28 | s))))....(unless.exporter......( |
| 8fe0 | 65 72 72 6f 72 20 22 25 73 20 69 73 20 6e 6f 74 20 61 20 76 61 6c 69 64 20 61 6c 74 65 72 6e 61 | error."%s.is.not.a.valid.alterna |
| 9000 | 74 69 76 65 2c 20 6d 75 73 74 20 62 65 20 6f 6e 65 20 6f 66 20 25 73 22 0a 09 09 09 20 20 61 6c | tive,.must.be.one.of.%s"......al |
| 9020 | 74 20 28 6d 61 70 63 61 72 20 23 27 63 61 72 20 6f 72 67 2d 6d 73 67 2d 61 6c 74 65 72 6e 61 74 | t.(mapcar.#'car.org-msg-alternat |
| 9040 | 69 76 65 2d 65 78 70 6f 72 74 65 72 73 29 29 29 0a 09 09 20 28 6c 65 74 20 28 28 65 78 70 6f 72 | ive-exporters)))....(let.((expor |
| 9060 | 74 65 64 20 28 66 75 6e 63 61 6c 6c 20 28 63 64 72 20 65 78 70 6f 72 74 65 72 29 20 6f 72 67 29 | ted.(funcall.(cdr.exporter).org) |
| 9080 | 29 0a 09 09 20 20 20 20 20 20 20 28 65 78 70 2d 66 69 6c 65 73 20 27 28 29 29 29 0a 09 09 20 20 | )..........(exp-files.'()))..... |
| 90a0 | 20 28 77 68 65 6e 20 28 6c 69 73 74 70 20 65 78 70 6f 72 74 65 64 29 0a 09 09 20 20 20 20 20 28 | .(when.(listp.exported)........( |
| 90c0 | 63 6c 2d 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 73 65 74 71 20 28 65 78 70 6f 72 74 65 64 | cl-multiple-value-setq.(exported |
| 90e0 | 20 65 78 70 2d 66 69 6c 65 73 29 20 65 78 70 6f 72 74 65 64 29 29 0a 09 09 20 20 20 28 73 65 74 | .exp-files).exported))......(set |
| 9100 | 66 20 66 69 6c 65 73 20 28 61 70 70 65 6e 64 20 66 69 6c 65 73 20 65 78 70 2d 66 69 6c 65 73 29 | f.files.(append.files.exp-files) |
| 9120 | 29 0a 09 09 20 20 20 28 63 6f 6e 73 20 28 63 61 72 20 65 78 70 6f 72 74 65 72 29 20 65 78 70 6f | )......(cons.(car.exporter).expo |
| 9140 | 72 74 65 64 29 29 29 29 29 0a 20 20 20 20 20 20 28 63 6c 2d 76 61 6c 75 65 73 20 28 6d 61 70 63 | rted))))).......(cl-values.(mapc |
| 9160 | 61 72 20 23 27 65 78 70 6f 72 74 20 61 6c 74 65 72 6e 61 74 69 76 65 73 29 20 66 69 6c 65 73 20 | ar.#'export.alternatives).files. |
| 9180 | 6d 6d 6c 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6d 73 67 2d 70 72 65 70 61 72 65 2d | mml))))..(defun.org-msg-prepare- |
| 91a0 | 74 6f 2d 73 65 6e 64 20 28 29 0a 20 20 22 43 6f 6e 76 65 72 74 20 74 68 65 20 63 75 72 72 65 6e | to-send.()..."Convert.the.curren |
| 91c0 | 74 20 4f 72 67 4d 73 67 20 62 75 66 66 65 72 20 69 6e 74 6f 20 60 6d 6d 6c 27 20 63 6f 6e 74 65 | t.OrgMsg.buffer.into.`mml'.conte |
| 91e0 | 6e 74 2e 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 61 20 68 6f 6f 6b 20 66 6f 72 20 | nt..This.function.is.a.hook.for. |
| 9200 | 60 6d 65 73 73 61 67 65 2d 73 65 6e 64 2d 68 6f 6f 6b 27 2e 22 0a 20 20 28 73 61 76 65 2d 77 69 | `message-send-hook'."...(save-wi |
| 9220 | 6e 64 6f 77 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 28 77 68 65 6e 20 28 65 71 20 6d 61 6a | ndow-excursion.....(when.(eq.maj |
| 9240 | 6f 72 2d 6d 6f 64 65 20 27 6f 72 67 2d 6d 73 67 2d 65 64 69 74 2d 6d 6f 64 65 29 0a 20 20 20 20 | or-mode.'org-msg-edit-mode)..... |
| 9260 | 20 20 28 69 66 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 28 6f 72 67 2d 6d 73 | ..(if.(get-text-property.(org-ms |
| 9280 | 67 2d 73 74 61 72 74 29 20 27 6d 6d 6c 29 0a 20 20 20 20 20 20 20 20 20 20 28 6d 65 73 73 61 67 | g-start).'mml)...........(messag |
| 92a0 | 65 20 22 57 61 72 6e 69 6e 67 3a 20 6f 72 67 2d 6d 73 67 3a 20 25 53 20 69 73 20 61 6c 72 65 61 | e."Warning:.org-msg:.%S.is.alrea |
| 92c0 | 64 79 20 61 20 4d 4d 4c 20 62 75 66 66 65 72 22 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 | dy.a.MML.buffer".(current-buffer |
| 92e0 | 29 29 0a 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 61 6c 74 65 72 6e 61 74 69 76 65 73 20 28 | )).........(let.((alternatives.( |
| 9300 | 6f 72 67 2d 6d 73 67 2d 67 65 74 2d 70 72 6f 70 20 22 61 6c 74 65 72 6e 61 74 69 76 65 73 22 29 | org-msg-get-prop."alternatives") |
| 9320 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 74 74 61 63 68 6d 65 6e 74 73 20 6d 6d 6c 29 | )...............attachments.mml) |
| 9340 | 0a 09 20 20 28 63 6c 2d 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 73 65 74 71 20 28 6f 72 67 | ....(cl-multiple-value-setq.(org |
| 9360 | 2d 6d 73 67 2d 61 6c 74 65 72 6e 61 74 69 76 65 73 20 61 74 74 61 63 68 6d 65 6e 74 73 20 6d 6d | -msg-alternatives.attachments.mm |
| 9380 | 6c 29 0a 09 20 20 20 20 28 6f 72 67 2d 6d 73 67 2d 62 75 69 6c 64 2d 61 6c 74 65 72 6e 61 74 69 | l)......(org-msg-build-alternati |
| 93a0 | 76 65 73 20 61 6c 74 65 72 6e 61 74 69 76 65 73 29 29 0a 09 20 20 28 77 68 65 6e 20 28 6d 65 6d | ves.alternatives))....(when.(mem |
| 93c0 | 71 20 27 68 74 6d 6c 20 61 6c 74 65 72 6e 61 74 69 76 65 73 29 0a 09 20 20 20 20 28 63 6c 2d 66 | q.'html.alternatives)......(cl-f |
| 93e0 | 6c 65 74 20 28 28 69 73 2d 69 6d 61 67 65 2d 62 75 74 2d 73 76 67 20 28 66 69 6c 65 29 0a 09 09 | let.((is-image-but-svg.(file)... |
| 9400 | 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 2d 70 20 22 69 6d 61 67 65 2f 5c 5c | .......(string-match-p."image/\\ |
| 9420 | 28 5b 5e 73 5d 5c 5c 7c 73 5b 5e 76 5d 5c 5c 7c 73 76 5b 5e 67 5d 5c 5c 29 22 0a 09 09 09 09 20 | ([^s]\\|s[^v]\\|sv[^g]\\)"...... |
| 9440 | 20 20 20 20 20 20 28 6f 72 67 2d 6d 73 67 2d 66 69 6c 65 2d 6d 69 6d 65 2d 74 79 70 65 20 66 69 | ......(org-msg-file-mime-type.fi |
| 9460 | 6c 65 29 29 29 29 0a 09 20 20 20 20 20 20 28 73 65 74 66 20 61 74 74 61 63 68 6d 65 6e 74 73 20 | le))))........(setf.attachments. |
| 9480 | 28 63 6c 2d 64 65 6c 65 74 65 2d 69 66 20 23 27 69 73 2d 69 6d 61 67 65 2d 62 75 74 2d 73 76 67 | (cl-delete-if.#'is-image-but-svg |
| 94a0 | 20 61 74 74 61 63 68 6d 65 6e 74 73 29 29 29 29 0a 09 20 20 28 73 65 74 66 20 61 74 74 61 63 68 | .attachments))))....(setf.attach |
| 94c0 | 6d 65 6e 74 73 20 28 63 6c 2d 75 6e 69 6f 6e 20 28 6f 72 67 2d 6d 73 67 2d 67 65 74 2d 70 72 6f | ments.(cl-union.(org-msg-get-pro |
| 94e0 | 70 20 22 61 74 74 61 63 68 6d 65 6e 74 22 29 0a 09 09 09 09 20 20 20 20 20 20 61 74 74 61 63 68 | p."attachment")...........attach |
| 9500 | 6d 65 6e 74 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 56 65 72 69 66 79 20 61 6c 6c 20 | ments))...........;;.Verify.all. |
| 9520 | 61 74 74 61 63 68 6d 65 6e 74 73 20 65 78 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 28 64 6f 6c | attachments.exist...........(dol |
| 9540 | 69 73 74 20 28 66 69 6c 65 20 61 74 74 61 63 68 6d 65 6e 74 73 29 0a 20 20 20 20 20 20 20 20 20 | ist.(file.attachments).......... |
| 9560 | 20 20 20 28 75 6e 6c 65 73 73 20 28 66 69 6c 65 2d 65 78 69 73 74 73 2d 70 20 66 69 6c 65 29 0a | ...(unless.(file-exists-p.file). |
| 9580 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 46 69 6c 65 20 27 25 73 27 20 | ..............(error."File.'%s'. |
| 95a0 | 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 74 22 20 66 69 6c 65 29 29 29 0a 20 20 20 20 20 20 20 20 | does.not.exist".file)))......... |
| 95c0 | 20 20 3b 3b 20 43 6c 65 61 72 20 74 68 65 20 63 6f 6e 74 65 6e 74 73 20 6f 66 20 74 68 65 20 6d | ..;;.Clear.the.contents.of.the.m |
| 95e0 | 65 73 73 61 67 65 0a 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 6f 72 67 | essage...........(goto-char.(org |
| 9600 | 2d 6d 73 67 2d 73 74 61 72 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d 72 | -msg-start))...........(delete-r |
| 9620 | 65 67 69 6f 6e 20 28 6f 72 67 2d 6d 73 67 2d 73 74 61 72 74 29 20 28 70 6f 69 6e 74 2d 6d 61 78 | egion.(org-msg-start).(point-max |
| 9640 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 49 66 20 6d 6d 6c 20 68 61 73 20 72 65 63 75 72 | ))...........;;.If.mml.has.recur |
| 9660 | 73 69 76 65 20 68 74 6d 6c 20 73 75 70 70 6f 72 74 20 28 73 74 61 72 74 69 6e 67 20 77 69 74 68 | sive.html.support.(starting.with |
| 9680 | 20 45 6d 61 63 73 20 32 38 29 2c 20 77 65 20 77 61 6e 74 0a 20 20 20 20 20 20 20 20 20 20 3b 3b | .Emacs.28),.we.want...........;; |
| 96a0 | 20 74 6f 20 67 65 6e 65 72 61 74 65 20 74 68 65 20 73 74 72 75 63 74 75 72 65 20 6f 66 20 74 68 | .to.generate.the.structure.of.th |
| 96c0 | 65 20 4d 49 4d 45 20 64 6f 63 75 6d 65 6e 74 20 68 65 72 65 2e 20 20 49 66 20 6e 6f 74 20 77 65 | e.MIME.document.here...If.not.we |
| 96e0 | 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 74 68 69 73 20 62 79 20 6d 61 6e 75 61 6c 6c | .do...........;;.this.by.manuall |
| 9700 | 79 20 65 64 69 74 69 6e 67 20 74 68 65 20 73 74 72 75 63 74 75 72 65 20 6f 66 20 74 68 65 20 70 | y.editing.the.structure.of.the.p |
| 9720 | 61 72 73 65 64 20 4d 4d 4c 20 74 72 65 65 20 69 6e 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 60 | arsed.MML.tree.in...........;;.` |
| 9740 | 6f 72 67 2d 6d 73 67 2d 6d 6d 6c 2d 69 6e 74 6f 2d 6d 75 6c 74 69 70 61 72 74 2d 72 65 6c 61 74 | org-msg-mml-into-multipart-relat |
| 9760 | 65 64 27 2e 20 57 65 20 61 6c 73 6f 20 64 6f 6e 27 74 20 6e 65 65 64 20 74 6f 20 77 6f 72 72 79 | ed'..We.also.don't.need.to.worry |
| 9780 | 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 61 62 6f 75 74 20 74 68 69 73 20 69 66 20 77 65 20 61 | ...........;;.about.this.if.we.a |
| 97a0 | 72 65 20 6f 6e 6c 79 20 73 65 6e 64 69 6e 67 20 74 65 78 74 2f 70 6c 61 69 6e 0a 20 20 20 20 20 | re.only.sending.text/plain...... |
| 97c0 | 20 20 20 20 20 28 69 66 20 28 6f 72 20 28 6f 72 67 2d 6d 73 67 2d 6d 6d 6c 2d 72 65 63 75 72 73 | .....(if.(or.(org-msg-mml-recurs |
| 97e0 | 69 76 65 2d 73 75 70 70 6f 72 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ive-support)...................( |
| 9800 | 6e 6f 74 20 28 6d 65 6d 71 20 27 68 74 6d 6c 20 61 6c 74 65 72 6e 61 74 69 76 65 73 29 29 29 0a | not.(memq.'html.alternatives))). |
| 9820 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 20 20 | ..............(progn............ |
| 9840 | 20 20 20 20 20 28 77 68 65 6e 20 28 6f 72 20 61 74 74 61 63 68 6d 65 6e 74 73 20 6d 6d 6c 29 0a | .....(when.(or.attachments.mml). |
| 9860 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 6d 6c 2d 69 6e 73 65 72 74 2d 6d 75 | ..................(mml-insert-mu |
| 9880 | 6c 74 69 70 61 72 74 20 22 6d 69 78 65 64 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ltipart."mixed"))............... |
| 98a0 | 20 20 28 77 68 65 6e 20 28 3e 20 28 6c 65 6e 67 74 68 20 6f 72 67 2d 6d 73 67 2d 61 6c 74 65 72 | ..(when.(>.(length.org-msg-alter |
| 98c0 | 6e 61 74 69 76 65 73 29 20 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d | natives).1)...................(m |
| 98e0 | 6d 6c 2d 69 6e 73 65 72 74 2d 6d 75 6c 74 69 70 61 72 74 20 22 61 6c 74 65 72 6e 61 74 69 76 65 | ml-insert-multipart."alternative |
| 9900 | 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 6c 69 73 74 20 28 61 6c 74 | ")).................(dolist.(alt |
| 9920 | 20 6f 72 67 2d 6d 73 67 2d 61 6c 74 65 72 6e 61 74 69 76 65 73 29 0a 20 20 20 20 20 20 20 20 20 | .org-msg-alternatives).......... |
| 9940 | 20 20 20 20 20 20 20 20 20 28 6d 6d 6c 2d 69 6e 73 65 72 74 2d 70 61 72 74 20 28 63 61 72 20 61 | .........(mml-insert-part.(car.a |
| 9960 | 6c 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 28 | lt))...................(insert.( |
| 9980 | 63 64 72 20 61 6c 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 | cdr.alt))...................(for |
| 99a0 | 77 61 72 64 2d 6c 69 6e 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 | ward-line)).................(whe |
| 99c0 | 6e 20 28 3e 20 28 6c 65 6e 67 74 68 20 6f 72 67 2d 6d 73 67 2d 61 6c 74 65 72 6e 61 74 69 76 65 | n.(>.(length.org-msg-alternative |
| 99e0 | 73 29 20 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 | s).1)...................(forward |
| 9a00 | 2d 6c 69 6e 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 6c 69 73 74 20 | -line)).................(dolist. |
| 9a20 | 28 66 69 6c 65 20 61 74 74 61 63 68 6d 65 6e 74 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | (file.attachments).............. |
| 9a40 | 20 20 20 20 20 28 6d 6d 6c 2d 69 6e 73 65 72 74 2d 74 61 67 20 27 70 61 72 74 20 27 74 79 70 65 | .....(mml-insert-tag.'part.'type |
| 9a60 | 20 28 6f 72 67 2d 6d 73 67 2d 66 69 6c 65 2d 6d 69 6d 65 2d 74 79 70 65 20 66 69 6c 65 29 0a 20 | .(org-msg-file-mime-type.file).. |
| 9a80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 9aa0 | 20 27 66 69 6c 65 6e 61 6d 65 20 66 69 6c 65 20 27 64 69 73 70 6f 73 69 74 69 6f 6e 20 22 61 74 | .'filename.file.'disposition."at |
| 9ac0 | 74 61 63 68 6d 65 6e 74 22 29 29 0a 09 09 28 77 68 65 6e 20 6d 6d 6c 0a 09 09 20 20 28 69 6e 73 | tachment"))...(when.mml.....(ins |
| 9ae0 | 65 72 74 20 6d 6d 6c 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 6d 6c 2d 69 6e 73 65 | ert.mml))).............(mml-inse |
| 9b00 | 72 74 2d 70 61 72 74 20 22 74 65 78 74 2f 68 74 6d 6c 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 | rt-part."text/html")............ |
| 9b20 | 20 28 69 6e 73 65 72 74 20 28 63 64 72 20 28 61 73 73 6f 63 20 22 74 65 78 74 2f 68 74 6d 6c 22 | .(insert.(cdr.(assoc."text/html" |
| 9b40 | 20 6f 72 67 2d 6d 73 67 2d 61 6c 74 65 72 6e 61 74 69 76 65 73 29 29 29 0a 09 20 20 20 20 3b 3b | .org-msg-alternatives)))......;; |
| 9b60 | 20 50 61 73 73 20 64 61 74 61 20 74 6f 20 60 6f 72 67 2d 6d 73 67 2d 6d 6d 6c 2d 69 6e 74 6f 2d | .Pass.data.to.`org-msg-mml-into- |
| 9b80 | 6d 75 6c 74 69 70 61 72 74 2d 72 65 6c 61 74 65 64 27 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 | multipart-related'.............( |
| 9ba0 | 73 65 74 71 20 6f 72 67 2d 6d 73 67 2d 61 74 74 61 63 68 6d 65 6e 74 20 61 74 74 61 63 68 6d 65 | setq.org-msg-attachment.attachme |
| 9bc0 | 6e 74 73 0a 09 09 20 20 6f 72 67 2d 6d 73 67 2d 6d 6d 6c 20 6d 6d 6c 29 29 0a 20 20 20 20 20 20 | nts.....org-msg-mml.mml))....... |
| 9be0 | 20 20 20 20 3b 3b 20 50 72 6f 70 65 72 74 69 73 65 20 74 68 65 20 6d 65 73 73 61 67 65 20 63 6f | ....;;.Propertise.the.message.co |
| 9c00 | 6e 74 65 6e 74 73 20 73 6f 20 77 65 20 64 6f 6e 27 74 20 61 63 63 69 64 65 6e 74 61 6c 6c 79 20 | ntents.so.we.don't.accidentally. |
| 9c20 | 72 75 6e 20 74 68 69 73 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 66 75 6e 63 74 69 6f 6e 20 6f | run.this...........;;.function.o |
| 9c40 | 6e 20 74 68 65 20 62 75 66 66 65 72 20 74 77 69 63 65 0a 20 20 20 20 20 20 20 20 20 20 28 61 64 | n.the.buffer.twice...........(ad |
| 9c60 | 64 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 69 65 73 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f | d-text-properties.(save-excursio |
| 9c80 | 6e 20 28 6d 65 73 73 61 67 65 2d 67 6f 74 6f 2d 62 6f 64 79 29 29 0a 20 20 20 20 20 20 20 20 20 | n.(message-goto-body)).......... |
| 9ca0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 69 6e 74 2d 6d 61 78 | ......................(point-max |
| 9cc0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | )............................... |
| 9ce0 | 20 27 28 6d 6d 6c 20 74 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6d 73 67 2d | .'(mml.t)))))))..(defun.org-msg- |
| 9d00 | 66 69 6c 65 2d 6d 69 6d 65 2d 74 79 70 65 20 28 66 69 6c 65 29 0a 20 20 22 52 65 74 75 72 6e 20 | file-mime-type.(file)..."Return. |
| 9d20 | 46 49 4c 45 20 6d 69 6d 65 20 74 79 70 65 20 62 61 73 65 64 20 6f 6e 20 46 49 4c 45 20 65 78 74 | FILE.mime.type.based.on.FILE.ext |
| 9d40 | 65 6e 73 69 6f 6e 2e 0a 49 66 20 46 49 4c 45 20 64 6f 65 73 20 6e 6f 74 20 68 61 76 65 20 61 6e | ension..If.FILE.does.not.have.an |
| 9d60 | 20 65 78 74 65 6e 73 69 6f 6e 2c 20 5c 22 74 65 78 74 2f 70 6c 61 69 6e 5c 22 20 69 73 20 72 65 | .extension,.\"text/plain\".is.re |
| 9d80 | 74 75 72 6e 65 64 2e 22 0a 20 20 28 69 66 2d 6c 65 74 20 28 28 65 78 74 65 6e 73 69 6f 6e 20 28 | turned."...(if-let.((extension.( |
| 9da0 | 66 69 6c 65 2d 6e 61 6d 65 2d 65 78 74 65 6e 73 69 6f 6e 20 66 69 6c 65 29 29 29 0a 20 20 20 20 | file-name-extension.file)))..... |
| 9dc0 | 20 20 28 6d 61 69 6c 63 61 70 2d 65 78 74 65 6e 73 69 6f 6e 2d 74 6f 2d 6d 69 6d 65 20 65 78 74 | ..(mailcap-extension-to-mime.ext |
| 9de0 | 65 6e 73 69 6f 6e 29 0a 20 20 20 20 22 74 65 78 74 2f 70 6c 61 69 6e 22 29 29 0a 0a 28 64 65 66 | ension)....."text/plain"))..(def |
| 9e00 | 75 6e 20 6f 72 67 2d 6d 73 67 2d 6d 6d 6c 2d 69 6e 74 6f 2d 6d 75 6c 74 69 70 61 72 74 2d 72 65 | un.org-msg-mml-into-multipart-re |
| 9e20 | 6c 61 74 65 64 20 28 6f 72 69 67 2d 66 75 6e 20 63 6f 6e 74 29 0a 20 20 22 45 78 74 65 6e 64 20 | lated.(orig-fun.cont)..."Extend. |
| 9e40 | 74 68 65 20 63 61 70 61 62 69 6c 69 74 79 20 74 6f 20 68 61 6e 64 6c 65 20 66 69 6c 65 20 61 74 | the.capability.to.handle.file.at |
| 9e60 | 74 61 63 68 6d 65 6e 74 73 2e 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 75 73 65 64 | tachments..This.function.is.used |
| 9e80 | 20 61 73 20 61 6e 20 61 64 76 69 63 65 20 66 75 6e 63 74 69 6f 6e 20 6f 66 0a 60 6d 6d 6c 2d 65 | .as.an.advice.function.of.`mml-e |
| 9ea0 | 78 70 61 6e 64 2d 68 74 6d 6c 2d 69 6e 74 6f 2d 6d 75 6c 74 69 70 61 72 74 2d 72 65 6c 61 74 65 | xpand-html-into-multipart-relate |
| 9ec0 | 64 27 2e 0a 2d 20 4f 52 49 47 2d 46 55 4e 20 69 73 20 74 68 65 20 6f 72 69 67 69 6e 61 6c 20 66 | d'..-.ORIG-FUN.is.the.original.f |
| 9ee0 | 75 6e 63 74 69 6f 6e 2e 0a 2d 20 43 4f 4e 54 20 69 73 20 74 68 65 20 4d 49 4d 45 20 72 65 70 72 | unction..-.CONT.is.the.MIME.repr |
| 9f00 | 65 73 65 6e 74 61 74 69 6f 6e 20 6f 66 20 74 68 65 20 6d 61 69 6c 20 63 6f 6e 74 65 6e 74 2e 0a | esentation.of.the.mail.content.. |
| 9f20 | 54 68 65 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 20 64 65 70 65 6e 64 73 20 6f 6e 20 74 68 | The.implementation.depends.on.th |
| 9f40 | 65 20 60 6f 72 67 2d 6d 73 67 2d 61 74 74 61 63 68 6d 65 6e 74 27 20 74 65 6d 70 6f 72 61 72 79 | e.`org-msg-attachment'.temporary |
| 9f60 | 0a 76 61 72 69 61 62 6c 65 20 73 65 74 20 62 79 20 60 6f 72 67 2d 6d 73 67 2d 70 72 65 70 61 72 | .variable.set.by.`org-msg-prepar |
| 9f80 | 65 2d 74 6f 2d 73 65 6e 64 27 2e 22 0a 20 20 28 73 65 74 71 20 63 6f 6e 74 20 28 66 75 6e 63 61 | e-to-send'."...(setq.cont.(funca |
| 9fa0 | 6c 6c 20 6f 72 69 67 2d 66 75 6e 20 63 6f 6e 74 29 29 0a 20 20 28 6c 65 74 20 28 28 6e 65 77 70 | ll.orig-fun.cont))...(let.((newp |
| 9fc0 | 61 72 74 73 20 27 28 29 29 29 0a 20 20 20 20 3b 3b 20 47 65 6e 65 72 61 74 65 20 74 68 69 73 20 | arts.'())).....;;.Generate.this. |
| 9fe0 | 6c 69 73 74 20 6f 66 20 61 74 74 61 63 68 6d 65 6e 74 20 70 61 72 74 73 0a 20 20 20 20 28 64 6f | list.of.attachment.parts.....(do |
| a000 | 6c 69 73 74 20 28 66 69 6c 65 20 6f 72 67 2d 6d 73 67 2d 61 74 74 61 63 68 6d 65 6e 74 29 0a 20 | list.(file.org-msg-attachment).. |
| a020 | 20 20 20 20 20 28 6c 65 74 20 28 28 74 79 70 65 20 28 6f 72 67 2d 6d 73 67 2d 66 69 6c 65 2d 6d | .....(let.((type.(org-msg-file-m |
| a040 | 69 6d 65 2d 74 79 70 65 20 66 69 6c 65 29 29 29 0a 09 28 70 75 73 68 20 28 6c 69 73 74 20 27 70 | ime-type.file)))..(push.(list.'p |
| a060 | 61 72 74 20 60 28 74 79 70 65 20 2e 20 2c 74 79 70 65 29 20 60 28 66 69 6c 65 6e 61 6d 65 20 2e | art.`(type...,type).`(filename.. |
| a080 | 20 2c 66 69 6c 65 29 0a 09 09 20 20 20 20 27 28 64 69 73 70 6f 73 69 74 69 6f 6e 20 2e 20 22 61 | .,file).......'(disposition..."a |
| a0a0 | 74 74 61 63 68 6d 65 6e 74 22 29 29 0a 09 20 20 20 20 20 20 6e 65 77 70 61 72 74 73 29 29 29 0a | ttachment"))........newparts))). |
| a0c0 | 20 20 20 20 28 6c 65 74 20 28 28 61 6c 74 65 72 6e 61 74 69 76 65 20 28 69 66 20 28 65 71 20 28 | ....(let.((alternative.(if.(eq.( |
| a0e0 | 63 61 72 20 63 6f 6e 74 29 20 27 6d 75 6c 74 69 70 61 72 74 29 20 28 6c 69 73 74 20 63 6f 6e 74 | car.cont).'multipart).(list.cont |
| a100 | 29 20 63 6f 6e 74 29 29 29 0a 20 20 20 20 20 20 3b 3b 20 47 65 6e 65 72 61 74 65 20 61 6e 64 20 | ).cont))).......;;.Generate.and. |
| a120 | 69 6e 73 65 72 74 20 61 6e 79 20 6e 6f 6e 2d 68 74 6d 6c 20 61 6c 74 65 72 6e 61 74 69 76 65 73 | insert.any.non-html.alternatives |
| a140 | 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 3e 20 28 6c 65 6e 67 74 68 20 6f 72 67 2d 6d 73 67 2d | .......(when.(>.(length.org-msg- |
| a160 | 61 6c 74 65 72 6e 61 74 69 76 65 73 29 20 31 29 0a 20 20 20 20 20 20 20 20 28 64 6f 6c 69 73 74 | alternatives).1).........(dolist |
| a180 | 20 28 61 6c 74 20 6f 72 67 2d 6d 73 67 2d 61 6c 74 65 72 6e 61 74 69 76 65 73 29 0a 20 20 20 20 | .(alt.org-msg-alternatives)..... |
| a1a0 | 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 65 71 75 61 6c 20 28 63 61 72 20 61 6c 74 29 20 22 | ......(unless.(equal.(car.alt)." |
| a1c0 | 74 65 78 74 2f 68 74 6d 6c 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 60 28 | text/html").............(push.`( |
| a1e0 | 70 61 72 74 20 28 74 79 70 65 20 2e 20 2c 28 63 61 72 20 61 6c 74 29 29 0a 09 09 20 20 20 20 20 | part.(type...,(car.alt))........ |
| a200 | 20 20 20 20 28 64 69 73 70 6f 73 69 74 69 6f 6e 20 2e 20 22 69 6e 6c 69 6e 65 22 29 0a 09 09 20 | ....(disposition..."inline").... |
| a220 | 20 20 20 20 20 20 20 20 28 63 6f 6e 74 65 6e 74 73 20 2e 20 2c 28 63 64 72 20 61 6c 74 29 29 29 | ........(contents...,(cdr.alt))) |
| a240 | 0a 09 20 20 20 20 20 20 20 20 20 20 61 6c 74 65 72 6e 61 74 69 76 65 29 29 29 0a 20 20 20 20 20 | ............alternative)))...... |
| a260 | 20 20 20 3b 3b 20 50 75 74 20 61 6c 6c 20 74 68 65 20 61 6c 74 65 72 6e 61 74 69 76 65 73 20 69 | ...;;.Put.all.the.alternatives.i |
| a280 | 6e 20 61 20 6d 75 6c 74 69 70 61 72 74 0a 20 20 20 20 20 20 20 20 28 73 65 74 66 20 61 6c 74 65 | n.a.multipart.........(setf.alte |
| a2a0 | 72 6e 61 74 69 76 65 20 60 28 28 6d 75 6c 74 69 70 61 72 74 20 28 74 79 70 65 20 2e 20 22 61 6c | rnative.`((multipart.(type..."al |
| a2c0 | 74 65 72 6e 61 74 69 76 65 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ternative")..................... |
| a2e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 40 61 6c 74 65 72 6e 61 74 69 76 65 | ...................,@alternative |
| a300 | 29 29 29 29 0a 20 20 20 20 20 20 3b 3b 20 43 6f 6d 62 69 6e 65 20 74 68 65 20 61 74 74 61 63 68 | )))).......;;.Combine.the.attach |
| a320 | 6d 65 6e 74 73 20 61 6e 64 20 74 68 65 20 72 65 73 75 6c 74 69 6e 67 20 63 6f 6e 74 65 6e 74 20 | ments.and.the.resulting.content. |
| a340 | 70 61 72 74 2f 6d 75 6c 74 69 70 61 72 74 0a 20 20 20 20 20 20 28 70 72 6f 67 31 0a 09 20 20 28 | part/multipart.......(prog1....( |
| a360 | 69 66 20 28 6f 72 20 6f 72 67 2d 6d 73 67 2d 61 74 74 61 63 68 6d 65 6e 74 20 6f 72 67 2d 6d 73 | if.(or.org-msg-attachment.org-ms |
| a380 | 67 2d 6d 6d 6c 29 0a 09 20 20 20 20 20 20 60 28 6d 75 6c 74 69 70 61 72 74 20 28 74 79 70 65 20 | g-mml)........`(multipart.(type. |
| a3a0 | 2e 20 22 6d 69 78 65 64 22 29 0a 09 09 09 20 20 2c 40 61 6c 74 65 72 6e 61 74 69 76 65 0a 09 09 | .."mixed")......,@alternative... |
| a3c0 | 09 20 20 2c 40 6e 65 77 70 61 72 74 73 0a 09 09 09 20 20 2c 40 28 77 68 65 6e 20 6f 72 67 2d 6d | ...,@newparts......,@(when.org-m |
| a3e0 | 73 67 2d 6d 6d 6c 0a 09 09 09 20 20 20 20 20 20 28 77 69 74 68 2d 74 65 6d 70 2d 62 75 66 66 65 | sg-mml..........(with-temp-buffe |
| a400 | 72 0a 09 09 09 09 28 69 6e 73 65 72 74 20 6f 72 67 2d 6d 73 67 2d 6d 6d 6c 29 0a 09 09 09 09 28 | r.....(insert.org-msg-mml).....( |
| a420 | 6d 6d 6c 2d 70 61 72 73 65 29 29 29 29 0a 09 20 20 20 20 61 6c 74 65 72 6e 61 74 69 76 65 29 0a | mml-parse))))......alternative). |
| a440 | 09 28 73 65 74 71 20 6f 72 67 2d 6d 73 67 2d 6d 6d 6c 20 6e 69 6c 0a 09 20 20 20 20 20 20 6f 72 | .(setq.org-msg-mml.nil........or |
| a460 | 67 2d 6d 73 67 2d 61 74 74 61 63 68 6d 65 6e 74 20 6e 69 6c 0a 09 20 20 20 20 20 20 6f 72 67 2d | g-msg-attachment.nil........org- |
| a480 | 6d 73 67 2d 61 6c 74 65 72 6e 61 74 69 76 65 73 20 6e 69 6c 29 29 29 29 29 0a 0a 28 64 65 66 75 | msg-alternatives.nil)))))..(defu |
| a4a0 | 6e 20 6f 72 67 2d 6d 73 67 2d 68 74 6d 6c 2d 2d 74 6f 64 6f 20 28 6f 72 69 67 2d 66 75 6e 20 74 | n.org-msg-html--todo.(orig-fun.t |
| a4c0 | 6f 64 6f 20 26 6f 70 74 69 6f 6e 61 6c 20 69 6e 66 6f 29 0a 20 20 22 46 6f 72 6d 61 74 20 74 6f | odo.&optional.info)..."Format.to |
| a4e0 | 64 6f 20 6b 65 79 77 6f 72 64 73 20 69 6e 74 6f 20 48 54 4d 4c 2e 0a 54 68 69 73 20 66 75 6e 63 | do.keywords.into.HTML..This.func |
| a500 | 74 69 6f 6e 20 69 73 20 75 73 65 64 20 61 73 20 61 6e 20 61 64 76 69 63 65 20 66 75 6e 63 74 69 | tion.is.used.as.an.advice.functi |
| a520 | 6f 6e 20 6f 66 20 60 6f 72 67 2d 68 74 6d 6c 2d 2d 74 6f 64 6f 27 2e 0a 2d 20 4f 52 49 47 2d 46 | on.of.`org-html--todo'..-.ORIG-F |
| a540 | 55 4e 20 69 73 20 74 68 65 20 6f 72 69 67 69 6e 61 6c 20 66 75 6e 63 74 69 6f 6e 2e 0a 2d 20 54 | UN.is.the.original.function..-.T |
| a560 | 4f 44 4f 20 69 73 20 61 20 54 4f 44 4f 20 6b 65 79 77 6f 72 64 2e 0a 2d 20 49 4e 46 4f 20 69 73 | ODO.is.a.TODO.keyword..-.INFO.is |
| a580 | 20 61 20 70 72 6f 70 65 72 74 79 20 6c 69 73 74 2e 22 0a 20 20 28 63 6c 2d 66 6c 65 74 20 28 28 | .a.property.list."...(cl-flet.(( |
| a5a0 | 72 67 62 2d 74 6f 2d 68 65 78 20 28 72 20 67 20 62 29 0a 09 20 20 20 20 20 28 66 6f 72 6d 61 74 | rgb-to-hex.(r.g.b).......(format |
| a5c0 | 20 22 23 25 30 32 78 25 30 32 78 25 30 32 78 22 20 28 2a 20 72 20 32 35 35 29 20 28 2a 20 67 20 | ."#%02x%02x%02x".(*.r.255).(*.g. |
| a5e0 | 32 35 35 29 20 28 2a 20 62 20 32 35 35 29 29 29 29 0a 20 20 20 20 28 63 6c 2d 6d 61 63 72 6f 6c | 255).(*.b.255)))).....(cl-macrol |
| a600 | 65 74 20 28 28 61 64 64 2d 69 66 2d 65 78 69 73 74 20 28 76 61 6c 20 6c 73 74 20 73 79 6d 29 0a | et.((add-if-exist.(val.lst.sym). |
| a620 | 09 09 20 20 20 60 28 77 68 65 6e 20 2c 76 61 6c 0a 09 09 20 20 20 20 20 20 28 70 75 73 68 20 28 | .....`(when.,val.........(push.( |
| a640 | 63 6f 6e 73 20 2c 73 79 6d 20 28 61 70 70 6c 79 20 23 27 72 67 62 2d 74 6f 2d 68 65 78 0a 09 09 | cons.,sym.(apply.#'rgb-to-hex... |
| a660 | 09 09 09 20 20 20 20 20 20 28 63 6f 6c 6f 72 2d 6e 61 6d 65 2d 74 6f 2d 72 67 62 20 2c 76 61 6c | .........(color-name-to-rgb.,val |
| a680 | 29 29 29 0a 09 09 09 20 20 20 20 2c 6c 73 74 29 29 29 29 0a 20 20 20 20 20 20 28 69 66 20 6f 72 | )))........,lst)))).......(if.or |
| a6a0 | 67 2d 6d 73 67 2d 65 78 70 6f 72 74 2d 69 6e 2d 70 72 6f 67 72 65 73 73 0a 09 20 20 28 6c 65 74 | g-msg-export-in-progress....(let |
| a6c0 | 20 28 28 66 61 63 65 20 28 6f 72 67 2d 67 65 74 2d 74 6f 64 6f 2d 66 61 63 65 20 74 6f 64 6f 29 | .((face.(org-get-todo-face.todo) |
| a6e0 | 29 29 0a 09 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 74 6f 64 6f 20 66 61 63 65 29 0a 09 20 | ))......(when.(and.todo.face)... |
| a700 | 20 20 20 20 20 28 6c 65 74 20 28 70 72 6f 70 73 29 0a 09 09 28 61 64 64 2d 69 66 2d 65 78 69 73 | .....(let.(props)...(add-if-exis |
| a720 | 74 20 28 68 74 6d 6c 69 7a 65 2d 66 61 63 65 2d 66 6f 72 65 67 72 6f 75 6e 64 20 66 61 63 65 29 | t.(htmlize-face-foreground.face) |
| a740 | 20 70 72 6f 70 73 20 27 63 6f 6c 6f 72 29 0a 09 09 28 61 64 64 2d 69 66 2d 65 78 69 73 74 20 28 | .props.'color)...(add-if-exist.( |
| a760 | 68 74 6d 6c 69 7a 65 2d 66 61 63 65 2d 62 61 63 6b 67 72 6f 75 6e 64 20 66 61 63 65 29 20 70 72 | htmlize-face-background.face).pr |
| a780 | 6f 70 73 0a 09 09 09 20 20 20 20 20 20 27 62 61 63 6b 67 72 6f 75 6e 64 2d 63 6f 6c 6f 72 29 0a | ops..........'background-color). |
| a7a0 | 09 09 28 66 6f 72 6d 61 74 20 22 3c 73 70 61 6e 25 73 3e 25 73 3c 2f 73 70 61 6e 3e 22 0a 09 09 | ..(format."<span%s>%s</span>"... |
| a7c0 | 09 28 69 66 20 70 72 6f 70 73 0a 09 09 09 20 20 20 20 28 66 6f 72 6d 61 74 20 22 20 73 74 79 6c | .(if.props........(format.".styl |
| a7e0 | 65 3d 5c 22 25 73 5c 22 22 0a 09 09 09 09 20 20 20 20 28 6f 72 67 2d 6d 73 67 2d 70 72 6f 70 73 | e=\"%s\"".........(org-msg-props |
| a800 | 2d 74 6f 2d 73 74 79 6c 65 20 70 72 6f 70 73 29 29 0a 09 09 09 20 20 22 22 29 0a 09 09 09 74 6f | -to-style.props))......"")....to |
| a820 | 64 6f 29 29 29 29 0a 09 28 66 75 6e 63 61 6c 6c 20 6f 72 69 67 2d 66 75 6e 20 74 6f 64 6f 20 69 | do))))..(funcall.orig-fun.todo.i |
| a840 | 6e 66 6f 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6d 73 67 2d 6d 65 73 73 61 67 65 | nfo)))))..(defun.org-msg-message |
| a860 | 2d 66 65 74 63 68 2d 66 69 65 6c 64 20 28 66 69 65 6c 64 2d 6e 61 6d 65 29 0a 20 20 22 52 65 74 | -fetch-field.(field-name)..."Ret |
| a880 | 75 72 6e 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 68 65 61 64 65 72 20 66 69 65 6c | urn.the.value.of.the.header.fiel |
| a8a0 | 64 20 77 68 6f 73 65 20 74 79 70 65 20 69 73 20 46 49 45 4c 44 2d 4e 41 4d 45 2e 22 0a 20 20 28 | d.whose.type.is.FIELD-NAME."...( |
| a8c0 | 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 28 73 61 76 65 2d 72 65 73 74 72 69 63 | save-excursion.....(save-restric |
| a8e0 | 74 69 6f 6e 0a 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 2d 6e 61 72 72 6f 77 2d 74 6f 2d 68 65 | tion.......(message-narrow-to-he |
| a900 | 61 64 65 72 73 29 0a 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 2d 66 65 74 63 68 2d 66 69 65 6c | aders).......(message-fetch-fiel |
| a920 | 64 20 66 69 65 6c 64 2d 6e 61 6d 65 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6d 73 67 | d.field-name))))..(defun.org-msg |
| a940 | 2d 67 65 74 2d 74 6f 2d 6e 61 6d 65 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 6e 61 | -get-to-name.()..."Return.the.na |
| a960 | 6d 65 20 6f 66 20 74 68 65 20 72 65 63 69 70 69 65 6e 74 2e 0a 49 74 20 70 61 72 73 65 73 20 74 | me.of.the.recipient..It.parses.t |
| a980 | 68 65 20 27 54 6f 3a 27 20 66 69 65 6c 64 20 6f 66 20 74 68 65 20 63 75 72 72 65 6e 74 20 60 6f | he.'To:'.field.of.the.current.`o |
| a9a0 | 72 67 2d 6d 73 67 2d 65 64 69 74 2d 6d 6f 64 65 27 0a 62 75 66 66 65 72 20 74 6f 20 65 78 74 72 | rg-msg-edit-mode'.buffer.to.extr |
| a9c0 | 61 63 74 20 61 6e 64 20 72 65 74 75 72 6e 20 61 20 6e 61 6d 65 2e 20 20 54 68 65 20 72 65 74 75 | act.and.return.a.name...The.retu |
| a9e0 | 72 6e 65 64 20 6e 61 6d 65 20 69 73 20 65 69 74 68 65 72 0a 74 68 65 20 72 65 63 69 70 69 65 6e | rned.name.is.either.the.recipien |
| aa00 | 74 20 6e 61 6d 65 20 73 70 65 63 69 66 69 65 64 20 69 6e 20 60 6f 72 67 2d 6d 73 67 2d 72 65 63 | t.name.specified.in.`org-msg-rec |
| aa20 | 69 70 69 65 6e 74 2d 6e 61 6d 65 73 27 20 6f 72 20 74 68 65 0a 66 69 72 73 74 20 6e 61 6d 65 20 | ipient-names'.or.the.first.name. |
| aa40 | 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 65 78 74 72 61 63 74 65 64 20 66 72 6f 6d 20 74 68 65 | automatically.extracted.from.the |
| aa60 | 20 65 6d 61 69 6c 20 61 64 64 72 65 73 73 2e 20 49 74 20 69 73 0a 75 73 65 64 20 74 6f 20 61 75 | .email.address..It.is.used.to.au |
| aa80 | 74 6f 6d 61 74 69 63 61 6c 6c 79 20 67 72 65 65 74 20 74 68 65 20 72 69 67 68 74 20 6e 61 6d 65 | tomatically.greet.the.right.name |
| aaa0 | 2c 20 73 65 65 0a 60 6f 72 67 2d 6d 73 67 2d 67 72 65 65 74 69 6e 67 2d 66 6d 74 27 2e 22 0a 20 | ,.see.`org-msg-greeting-fmt'.".. |
| aac0 | 20 28 63 6c 2d 66 6c 65 74 20 28 28 72 65 63 69 70 69 65 6e 74 32 6e 61 6d 65 20 28 72 29 0a 09 | .(cl-flet.((recipient2name.(r).. |
| aae0 | 20 20 20 20 20 28 63 6c 2d 6d 75 6c 74 69 70 6c 65 2d 76 61 6c 75 65 2d 62 69 6e 64 20 28 6e 61 | .....(cl-multiple-value-bind.(na |
| ab00 | 6d 65 20 6d 61 69 6c 29 20 72 0a 09 20 20 20 20 20 20 20 28 77 68 65 6e 20 6e 61 6d 65 0a 09 09 | me.mail).r.........(when.name... |
| ab20 | 20 28 6f 72 20 28 61 73 73 6f 63 2d 64 65 66 61 75 6c 74 20 6d 61 69 6c 20 6f 72 67 2d 6d 73 67 | .(or.(assoc-default.mail.org-msg |
| ab40 | 2d 72 65 63 69 70 69 65 6e 74 2d 6e 61 6d 65 73 29 0a 09 09 20 20 20 20 20 28 6c 65 74 2a 20 28 | -recipient-names)........(let*.( |
| ab60 | 28 73 70 6c 69 74 20 28 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 6e 61 6d 65 20 22 2c 20 22 20 74 | (split.(split-string.name.",.".t |
| ab80 | 29 29 0a 09 09 09 20 20 20 20 28 66 69 72 73 74 2d 6e 61 6d 65 20 28 69 66 20 28 3d 20 28 6c 65 | ))........(first-name.(if.(=.(le |
| aba0 | 6e 67 74 68 20 73 70 6c 69 74 29 20 32 29 0a 09 09 09 09 09 20 20 20 20 28 63 61 64 72 20 73 70 | ngth.split).2)..........(cadr.sp |
| abc0 | 6c 69 74 29 0a 09 09 09 09 09 20 20 28 63 61 72 20 28 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 6e | lit)........(car.(split-string.n |
| abe0 | 61 6d 65 20 22 20 22 20 74 29 29 29 29 29 0a 09 09 20 20 20 20 20 20 20 28 73 65 74 66 20 66 69 | ame.".".t)))))..........(setf.fi |
| ac00 | 72 73 74 2d 6e 61 6d 65 20 28 63 61 70 69 74 61 6c 69 7a 65 20 66 69 72 73 74 2d 6e 61 6d 65 29 | rst-name.(capitalize.first-name) |
| ac20 | 29 0a 09 09 20 20 20 20 20 20 20 28 69 66 20 6f 72 67 2d 6d 73 67 2d 67 72 65 65 74 69 6e 67 2d | )..........(if.org-msg-greeting- |
| ac40 | 66 6d 74 2d 6d 61 69 6c 74 6f 0a 09 09 09 20 20 20 28 66 6f 72 6d 61 74 20 22 5b 5b 6d 61 69 6c | fmt-mailto.......(format."[[mail |
| ac60 | 74 6f 3a 25 73 5d 5b 25 73 5d 5d 22 20 6d 61 69 6c 20 66 69 72 73 74 2d 6e 61 6d 65 29 0a 09 09 | to:%s][%s]]".mail.first-name)... |
| ac80 | 09 20 66 69 72 73 74 2d 6e 61 6d 65 29 29 29 29 29 29 29 0a 20 20 20 20 28 73 61 76 65 2d 65 78 | ..first-name))))))).....(save-ex |
| aca0 | 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 28 69 66 2d 6c 65 74 20 28 28 74 6f 20 28 6f 72 67 2d | cursion.......(if-let.((to.(org- |
| acc0 | 6d 73 67 2d 6d 65 73 73 61 67 65 2d 66 65 74 63 68 2d 66 69 65 6c 64 20 22 74 6f 22 29 29 29 0a | msg-message-fetch-field."to"))). |
| ace0 | 09 20 20 28 6c 65 74 20 28 28 72 65 63 69 70 69 65 6e 74 73 20 28 6d 61 69 6c 2d 65 78 74 72 61 | ...(let.((recipients.(mail-extra |
| ad00 | 63 74 2d 61 64 64 72 65 73 73 2d 63 6f 6d 70 6f 6e 65 6e 74 73 20 74 6f 20 74 29 29 29 0a 09 20 | ct-address-components.to.t)))... |
| ad20 | 20 20 20 28 77 68 65 6e 20 6f 72 67 2d 6d 73 67 2d 67 72 65 65 74 69 6e 67 2d 6e 61 6d 65 2d 6c | ...(when.org-msg-greeting-name-l |
| ad40 | 69 6d 69 74 0a 09 20 20 20 20 20 20 28 73 65 74 66 20 72 65 63 69 70 69 65 6e 74 73 20 28 73 65 | imit........(setf.recipients.(se |
| ad60 | 71 2d 74 61 6b 65 20 72 65 63 69 70 69 65 6e 74 73 20 6f 72 67 2d 6d 73 67 2d 67 72 65 65 74 69 | q-take.recipients.org-msg-greeti |
| ad80 | 6e 67 2d 6e 61 6d 65 2d 6c 69 6d 69 74 29 29 29 0a 09 20 20 20 20 28 73 74 72 69 6e 67 2d 6a 6f | ng-name-limit)))......(string-jo |
| ada0 | 69 6e 20 28 64 65 6c 71 20 6e 69 6c 20 28 6d 61 70 63 61 72 20 23 27 72 65 63 69 70 69 65 6e 74 | in.(delq.nil.(mapcar.#'recipient |
| adc0 | 32 6e 61 6d 65 20 72 65 63 69 70 69 65 6e 74 73 29 29 20 22 2c 20 22 29 29 0a 09 22 22 29 29 29 | 2name.recipients)).",."))..""))) |
| ade0 | 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6d 73 67 2d 68 65 61 64 65 72 20 28 72 65 70 6c 79 2d | )..(defun.org-msg-header.(reply- |
| ae00 | 74 6f 20 61 6c 74 65 72 6e 61 74 69 76 65 73 29 0a 20 20 22 42 75 69 6c 64 20 74 68 65 20 4f 72 | to.alternatives)..."Build.the.Or |
| ae20 | 67 20 4f 50 54 49 4f 4e 53 20 61 6e 64 20 50 52 4f 50 45 52 54 49 45 53 20 62 6c 6f 63 6b 73 2e | g.OPTIONS.and.PROPERTIES.blocks. |
| ae40 | 0a 52 45 50 4c 59 2d 54 4f 20 69 73 20 74 68 65 20 66 69 6c 65 20 70 61 74 68 20 6f 66 20 74 68 | .REPLY-TO.is.the.file.path.of.th |
| ae60 | 65 20 6f 72 69 67 69 6e 61 6c 20 65 6d 61 69 6c 20 65 78 70 6f 72 74 20 69 6e 20 48 54 4d 4c 2e | e.original.email.export.in.HTML. |
| ae80 | 22 0a 20 20 28 63 6f 6e 63 61 74 20 28 66 6f 72 6d 61 74 20 22 23 2b 4f 50 54 49 4f 4e 53 3a 20 | "...(concat.(format."#+OPTIONS:. |
| aea0 | 25 73 20 64 3a 6e 69 6c 5c 6e 23 2b 53 54 41 52 54 55 50 3a 20 25 73 5c 6e 22 0a 09 09 20 20 28 | %s.d:nil\n#+STARTUP:.%s\n".....( |
| aec0 | 6f 72 20 6f 72 67 2d 6d 73 67 2d 6f 70 74 69 6f 6e 73 20 22 22 29 20 28 6f 72 20 6f 72 67 2d 6d | or.org-msg-options."").(or.org-m |
| aee0 | 73 67 2d 73 74 61 72 74 75 70 20 22 22 29 29 0a 09 20 20 28 66 6f 72 6d 61 74 20 22 3a 50 52 4f | sg-startup.""))....(format.":PRO |
| af00 | 50 45 52 54 49 45 53 3a 5c 6e 3a 72 65 70 6c 79 2d 74 6f 3a 20 25 53 5c 6e 3a 61 74 74 61 63 68 | PERTIES:\n:reply-to:.%S\n:attach |
| af20 | 6d 65 6e 74 3a 20 6e 69 6c 5c 6e 3a 61 6c 74 65 72 6e 61 74 69 76 65 73 3a 20 25 73 5c 6e 3a 45 | ment:.nil\n:alternatives:.%s\n:E |
| af40 | 4e 44 3a 5c 6e 22 0a 09 09 20 20 72 65 70 6c 79 2d 74 6f 20 61 6c 74 65 72 6e 61 74 69 76 65 73 | ND:\n".....reply-to.alternatives |
| af60 | 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6d 73 67 2d 61 72 74 69 63 6c 65 2d 68 74 6d 6c | )))..(defun.org-msg-article-html |
| af80 | 70 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 74 20 69 66 20 74 68 65 20 63 75 72 72 65 6e 74 20 | p.()..."Return.t.if.the.current. |
| afa0 | 61 72 74 69 63 6c 65 20 62 75 66 66 65 72 20 63 6f 6e 74 61 69 6e 73 20 61 20 74 65 78 74 2f 68 | article.buffer.contains.a.text/h |
| afc0 | 74 6d 6c 20 70 61 72 74 2e 22 0a 20 20 28 77 68 65 6e 2d 6c 65 74 20 28 28 70 61 72 74 73 20 28 | tml.part."...(when-let.((parts.( |
| afe0 | 6d 6d 2d 64 69 73 73 65 63 74 2d 62 75 66 66 65 72 20 74 20 74 29 29 29 0a 20 20 20 20 28 6d 6d | mm-dissect-buffer.t.t))).....(mm |
| b000 | 2d 64 65 73 74 72 6f 79 2d 70 61 72 74 73 20 70 61 72 74 73 29 0a 20 20 20 20 28 63 6c 2d 66 69 | -destroy-parts.parts).....(cl-fi |
| b020 | 6e 64 20 22 74 65 78 74 2f 68 74 6d 6c 22 20 28 66 6c 61 74 74 65 6e 2d 74 72 65 65 20 70 61 72 | nd."text/html".(flatten-tree.par |
| b040 | 74 73 29 20 3a 74 65 73 74 20 27 65 71 75 61 6c 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d | ts).:test.'equal)))..(defun.org- |
| b060 | 6d 73 67 2d 61 72 74 69 63 6c 65 2d 68 74 6d 6c 70 2d 67 6e 75 73 20 28 29 0a 20 20 22 52 65 74 | msg-article-htmlp-gnus.()..."Ret |
| b080 | 75 72 6e 20 74 20 69 66 20 74 68 65 20 63 75 72 72 65 6e 74 20 67 6e 75 73 20 61 72 74 69 63 6c | urn.t.if.the.current.gnus.articl |
| b0a0 | 65 20 69 73 20 48 54 4d 4c 20 61 72 74 69 63 6c 65 2e 0a 49 66 20 74 68 65 20 63 75 72 72 65 6e | e.is.HTML.article..If.the.curren |
| b0c0 | 74 6c 79 20 76 69 73 69 74 65 64 20 61 72 74 69 63 6c 65 20 28 60 67 6e 75 73 2d 61 72 74 69 63 | tly.visited.article.(`gnus-artic |
| b0e0 | 6c 65 2d 62 75 66 66 65 72 27 29 20 63 6f 6e 74 61 69 6e 73 0a 61 20 68 74 6d 6c 20 6d 69 6d 65 | le-buffer').contains.a.html.mime |
| b100 | 20 70 61 72 74 2c 20 69 74 20 72 65 74 75 72 6e 73 20 74 2c 20 6e 69 6c 20 6f 74 68 65 72 77 69 | .part,.it.returns.t,.nil.otherwi |
| b120 | 73 65 2e 22 0a 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 67 6e 75 73 | se."...(with-current-buffer.gnus |
| b140 | 2d 61 72 74 69 63 6c 65 2d 62 75 66 66 65 72 0a 20 20 20 20 28 73 65 74 2d 62 75 66 66 65 72 20 | -article-buffer.....(set-buffer. |
| b160 | 67 6e 75 73 2d 6f 72 69 67 69 6e 61 6c 2d 61 72 74 69 63 6c 65 2d 62 75 66 66 65 72 29 0a 20 20 | gnus-original-article-buffer)... |
| b180 | 20 20 28 6f 72 67 2d 6d 73 67 2d 61 72 74 69 63 6c 65 2d 68 74 6d 6c 70 29 29 29 0a 0a 28 64 65 | ..(org-msg-article-htmlp)))..(de |
| b1a0 | 66 75 6e 20 6f 72 67 2d 6d 73 67 2d 61 72 74 69 63 6c 65 2d 68 74 6d 6c 70 2d 6d 75 34 65 20 28 | fun.org-msg-article-htmlp-mu4e.( |
| b1c0 | 29 0a 20 20 28 6c 65 74 20 28 28 6d 73 67 20 6d 75 34 65 2d 63 6f 6d 70 6f 73 65 2d 70 61 72 65 | )...(let.((msg.mu4e-compose-pare |
| b1e0 | 6e 74 2d 6d 65 73 73 61 67 65 29 29 0a 20 20 20 20 28 77 69 74 68 2d 74 65 6d 70 2d 62 75 66 66 | nt-message)).....(with-temp-buff |
| b200 | 65 72 0a 20 20 20 20 20 20 28 69 6e 73 65 72 74 2d 66 69 6c 65 2d 63 6f 6e 74 65 6e 74 73 2d 6c | er.......(insert-file-contents-l |
| b220 | 69 74 65 72 61 6c 6c 79 0a 20 20 20 20 20 20 20 28 6d 75 34 65 2d 6d 65 73 73 61 67 65 2d 72 65 | iterally........(mu4e-message-re |
| b240 | 61 64 61 62 6c 65 2d 70 61 74 68 20 6d 73 67 29 20 6e 69 6c 20 6e 69 6c 20 6e 69 6c 20 74 29 0a | adable-path.msg).nil.nil.nil.t). |
| b260 | 20 20 20 20 20 20 28 6f 72 67 2d 6d 73 67 2d 61 72 74 69 63 6c 65 2d 68 74 6d 6c 70 29 29 29 29 | ......(org-msg-article-htmlp)))) |
| b280 | 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6d 73 67 2d 61 72 74 69 63 6c 65 2d 68 74 6d 6c 70 2d 6e | ..(defun.org-msg-article-htmlp-n |
| b2a0 | 6f 74 6d 75 63 68 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 74 20 69 66 20 74 68 65 20 63 75 72 | otmuch.()..."Return.t.if.the.cur |
| b2c0 | 72 65 6e 74 20 6e 6f 74 6d 75 63 68 20 61 72 74 69 63 6c 65 20 69 73 20 61 6e 20 48 54 4d 4c 20 | rent.notmuch.article.is.an.HTML. |
| b2e0 | 61 72 74 69 63 6c 65 2e 22 0a 20 20 28 6f 72 67 2d 6d 73 67 2d 77 69 74 68 2d 6f 72 69 67 69 6e | article."...(org-msg-with-origin |
| b300 | 61 6c 2d 6e 6f 74 6d 75 63 68 2d 6d 65 73 73 61 67 65 0a 20 20 20 20 28 6f 72 67 2d 6d 73 67 2d | al-notmuch-message.....(org-msg- |
| b320 | 61 72 74 69 63 6c 65 2d 68 74 6d 6c 70 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6d 73 67 | article-htmlp)))..(defun.org-msg |
| b340 | 2d 68 61 73 2d 6d 6d 6c 2d 74 61 67 73 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 74 20 69 66 20 | -has-mml-tags.()..."Return.t.if. |
| b360 | 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 20 63 6f 6e 74 61 69 6e 73 20 4d 4d 4c 20 | the.current.buffer.contains.MML. |
| b380 | 74 61 67 73 2e 22 0a 20 20 28 6c 65 74 20 28 28 6d 6d 6c 20 28 6d 6d 6c 2d 70 61 72 73 65 29 29 | tags."...(let.((mml.(mml-parse)) |
| b3a0 | 29 0a 20 20 20 20 28 6f 72 20 28 3e 20 28 6c 65 6e 67 74 68 20 6d 6d 6c 29 20 31 29 0a 09 28 6e | ).....(or.(>.(length.mml).1)..(n |
| b3c0 | 6f 74 20 28 73 74 72 69 6e 67 3d 20 28 61 6c 69 73 74 2d 67 65 74 20 27 74 79 70 65 20 28 63 61 | ot.(string=.(alist-get.'type.(ca |
| b3e0 | 72 20 6d 6d 6c 29 29 20 22 74 65 78 74 2f 70 6c 61 69 6e 22 29 29 29 29 29 0a 0a 28 64 65 66 75 | r.mml))."text/plain")))))..(defu |
| b400 | 6e 20 6f 72 67 2d 6d 73 67 2d 67 65 74 2d 61 6c 74 65 72 6e 61 74 69 76 65 73 20 28 74 79 70 65 | n.org-msg-get-alternatives.(type |
| b420 | 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 61 6c 74 65 72 6e 61 74 69 76 65 73 20 6c 69 73 | )..."Return.the.alternatives.lis |
| b440 | 74 20 66 6f 72 20 54 59 50 45 2e 0a 54 59 50 45 20 69 73 20 61 20 6f 6e 65 20 6f 66 20 74 68 65 | t.for.TYPE..TYPE.is.a.one.of.the |
| b460 | 20 6b 65 79 73 20 6f 66 20 60 6f 72 67 2d 6d 73 67 2d 64 65 66 61 75 6c 74 2d 61 6c 74 65 72 6e | .keys.of.`org-msg-default-altern |
| b480 | 61 74 69 76 65 73 27 2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 63 61 6e 20 62 65 20 61 | atives'...This.function.can.be.a |
| b4a0 | 64 76 69 73 65 64 20 69 66 20 61 20 6d 6f 72 65 20 73 75 62 74 6c 65 20 62 65 68 61 76 69 6f 72 | dvised.if.a.more.subtle.behavior |
| b4c0 | 20 69 73 20 6e 65 65 64 65 64 0a 73 75 63 68 20 61 73 20 61 6c 77 61 79 73 20 75 73 65 20 61 20 | .is.needed.such.as.always.use.a. |
| b4e0 | 70 61 72 74 69 63 75 6c 61 72 20 61 6c 74 65 72 6e 61 74 69 76 65 73 20 6c 69 73 74 20 77 68 65 | particular.alternatives.list.whe |
| b500 | 6e 20 72 65 70 6c 79 69 6e 67 0a 74 6f 20 61 20 70 61 72 74 69 63 75 6c 61 72 20 6d 61 69 6c 20 | n.replying.to.a.particular.mail. |
| b520 | 61 64 64 72 65 73 73 2e 22 0a 20 20 28 63 6f 6e 64 20 28 28 6c 69 73 74 70 20 28 63 61 72 20 6f | address."...(cond.((listp.(car.o |
| b540 | 72 67 2d 6d 73 67 2d 64 65 66 61 75 6c 74 2d 61 6c 74 65 72 6e 61 74 69 76 65 73 29 29 0a 09 20 | rg-msg-default-alternatives))... |
| b560 | 28 61 6c 69 73 74 2d 67 65 74 20 74 79 70 65 20 6f 72 67 2d 6d 73 67 2d 64 65 66 61 75 6c 74 2d | (alist-get.type.org-msg-default- |
| b580 | 61 6c 74 65 72 6e 61 74 69 76 65 73 29 29 0a 09 28 28 65 71 20 74 79 70 65 20 27 72 65 70 6c 79 | alternatives))..((eq.type.'reply |
| b5a0 | 2d 74 6f 2d 74 65 78 74 29 20 6e 69 6c 29 0a 09 28 6f 72 67 2d 6d 73 67 2d 64 65 66 61 75 6c 74 | -to-text).nil)..(org-msg-default |
| b5c0 | 2d 61 6c 74 65 72 6e 61 74 69 76 65 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6d 73 67 | -alternatives)))..(defun.org-msg |
| b5e0 | 2d 63 6f 6d 70 6f 73 69 74 69 6f 6e 2d 70 61 72 61 6d 65 74 65 72 73 20 28 74 79 70 65 20 61 6c | -composition-parameters.(type.al |
| b600 | 74 65 72 6e 61 74 69 76 65 73 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 70 6f 73 74 69 6e | ternatives)..."Return.the.postin |
| b620 | 67 2d 73 74 79 6c 65 2c 20 67 72 65 65 74 69 6e 67 20 66 6f 72 6d 61 74 20 61 6e 64 20 73 69 67 | g-style,.greeting.format.and.sig |
| b640 | 6e 61 74 75 72 65 2e 0a 54 59 50 45 20 69 73 20 61 20 6f 6e 65 20 6f 66 20 74 68 65 20 6b 65 79 | nature..TYPE.is.a.one.of.the.key |
| b660 | 73 20 6f 66 20 60 6f 72 67 2d 6d 73 67 2d 64 65 66 61 75 6c 74 2d 61 6c 74 65 72 6e 61 74 69 76 | s.of.`org-msg-default-alternativ |
| b680 | 65 73 27 2e 0a 41 4c 54 45 52 4e 41 54 49 56 45 53 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 61 | es'..ALTERNATIVES.is.a.list.of.a |
| b6a0 | 6c 74 65 72 6e 61 74 69 76 65 20 73 79 6d 62 6f 6c 73 20 69 6e 63 6c 75 64 65 64 20 61 73 20 64 | lternative.symbols.included.as.d |
| b6c0 | 65 66 69 6e 65 64 0a 69 6e 20 60 6f 72 67 2d 6d 73 67 2d 61 6c 74 65 72 6e 61 74 69 76 65 2d 65 | efined.in.`org-msg-alternative-e |
| b6e0 | 78 70 6f 72 74 65 72 73 27 2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 72 65 74 75 72 6e | xporters'...This.function.return |
| b700 | 73 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 60 6f 72 67 2d 6d 73 67 2d 70 6f 73 74 | s.the.value.of.the.`org-msg-post |
| b720 | 69 6e 67 2d 73 74 79 6c 65 27 2c 0a 60 6f 72 67 2d 6d 73 67 2d 67 72 65 65 74 69 6e 67 2d 66 6d | ing-style',.`org-msg-greeting-fm |
| b740 | 74 27 20 61 6e 64 20 60 6f 72 67 2d 6d 73 67 2d 70 6f 73 74 69 6e 67 2d 73 74 79 6c 65 27 20 63 | t'.and.`org-msg-posting-style'.c |
| b760 | 75 73 74 6f 6d 69 7a 61 74 69 6f 6e 0a 76 61 72 69 61 62 6c 65 73 20 61 73 20 61 6e 20 61 73 73 | ustomization.variables.as.an.ass |
| b780 | 6f 63 69 61 74 69 6f 6e 20 6c 69 73 74 20 77 69 74 68 20 60 73 74 79 6c 65 27 2c 20 60 67 72 65 | ociation.list.with.`style',.`gre |
| b7a0 | 65 74 69 6e 67 2d 66 6d 74 27 20 61 6e 64 0a 60 73 69 67 6e 61 74 75 72 65 27 20 61 73 20 74 68 | eting-fmt'.and.`signature'.as.th |
| b7c0 | 65 69 72 20 72 65 73 70 65 63 74 69 76 65 20 6b 65 79 73 2e 20 54 68 65 20 67 6f 61 6c 20 6f 66 | eir.respective.keys..The.goal.of |
| b7e0 | 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 0a 69 73 20 74 6f 20 6f 66 66 65 72 20 61 20 61 6e 63 | .this.function.is.to.offer.a.anc |
| b800 | 68 6f 72 20 70 6f 69 6e 74 20 66 6f 72 20 61 64 76 61 6e 63 65 64 20 63 6f 6e 66 69 67 75 72 61 | hor.point.for.advanced.configura |
| b820 | 74 69 6f 6e 3a 20 69 74 20 63 61 6e 20 62 65 0a 61 64 76 69 73 65 64 20 74 6f 20 69 6d 70 6c 65 | tion:.it.can.be.advised.to.imple |
| b840 | 6d 65 6e 74 20 6d 6f 72 65 20 63 6f 6d 70 6c 65 78 20 62 65 68 61 76 69 6f 72 73 20 73 75 63 68 | ment.more.complex.behaviors.such |
| b860 | 20 61 73 20 63 68 61 6e 67 65 20 74 68 65 0a 73 69 67 6e 61 74 75 72 65 20 61 6e 64 20 70 6f 73 | .as.change.the.signature.and.pos |
| b880 | 74 69 6e 67 20 73 74 79 6c 65 20 77 68 65 6e 20 72 65 70 6c 79 69 6e 67 20 74 6f 20 61 20 70 61 | ting.style.when.replying.to.a.pa |
| b8a0 | 72 74 69 63 75 6c 61 72 20 6d 61 69 6c 0a 61 64 64 72 65 73 73 20 6f 72 20 74 77 65 61 6b 20 74 | rticular.mail.address.or.tweak.t |
| b8c0 | 68 65 20 73 69 67 6e 61 74 75 72 65 20 77 68 65 6e 20 72 65 70 6c 79 69 6e 67 20 77 69 74 68 20 | he.signature.when.replying.with. |
| b8e0 | 70 6c 61 69 6e 20 74 65 78 74 0a 65 6d 61 69 6c 2e 22 0a 20 20 60 28 28 73 74 79 6c 65 20 2e 20 | plain.text.email."...`((style... |
| b900 | 2c 28 77 68 65 6e 20 28 61 6e 64 20 28 65 71 20 74 79 70 65 20 27 72 65 70 6c 79 2d 74 6f 2d 68 | ,(when.(and.(eq.type.'reply-to-h |
| b920 | 74 6d 6c 29 0a 09 09 09 20 28 6d 65 6d 71 20 27 68 74 6d 6c 20 61 6c 74 65 72 6e 61 74 69 76 65 | tml).....(memq.'html.alternative |
| b940 | 73 29 0a 09 09 09 20 28 6e 6f 74 20 28 3d 20 28 70 6f 69 6e 74 29 20 28 70 6f 69 6e 74 2d 6d 61 | s).....(not.(=.(point).(point-ma |
| b960 | 78 29 29 29 0a 09 09 09 20 28 6e 6f 74 20 28 6f 72 67 2d 6d 73 67 2d 68 61 73 2d 6d 6d 6c 2d 74 | x))).....(not.(org-msg-has-mml-t |
| b980 | 61 67 73 29 29 29 0a 09 09 6f 72 67 2d 6d 73 67 2d 70 6f 73 74 69 6e 67 2d 73 74 79 6c 65 29 29 | ags)))...org-msg-posting-style)) |
| b9a0 | 0a 20 20 20 20 28 67 72 65 65 74 69 6e 67 2d 66 6d 74 20 2e 20 2c 6f 72 67 2d 6d 73 67 2d 67 72 | .....(greeting-fmt...,org-msg-gr |
| b9c0 | 65 65 74 69 6e 67 2d 66 6d 74 29 0a 20 20 20 20 28 73 69 67 6e 61 74 75 72 65 20 2e 20 2c 6f 72 | eeting-fmt).....(signature...,or |
| b9e0 | 67 2d 6d 73 67 2d 73 69 67 6e 61 74 75 72 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6d | g-msg-signature)))..(defun.org-m |
| ba00 | 73 67 2d 70 6f 73 74 2d 73 65 74 75 70 20 28 26 72 65 73 74 20 5f 61 72 67 73 29 0a 20 20 22 54 | sg-post-setup.(&rest._args)..."T |
| ba20 | 72 61 6e 73 66 6f 72 6d 20 74 68 65 20 63 75 72 72 65 6e 74 20 60 6d 65 73 73 61 67 65 27 20 62 | ransform.the.current.`message'.b |
| ba40 | 75 66 66 65 72 20 69 6e 74 6f 20 61 20 4f 72 67 4d 73 67 20 62 75 66 66 65 72 2e 0a 49 66 20 74 | uffer.into.a.OrgMsg.buffer..If.t |
| ba60 | 68 65 20 63 75 72 72 65 6e 74 20 60 6d 65 73 73 61 67 65 27 20 62 75 66 66 65 72 20 69 73 20 61 | he.current.`message'.buffer.is.a |
| ba80 | 20 72 65 70 6c 79 2c 20 74 68 65 0a 60 6f 72 67 2d 6d 73 67 2d 73 65 70 61 72 61 74 6f 72 27 20 | .reply,.the.`org-msg-separator'. |
| baa0 | 73 74 72 69 6e 67 20 69 73 20 69 6e 73 65 72 74 65 64 20 61 74 20 74 68 65 20 65 6e 64 20 6f 66 | string.is.inserted.at.the.end.of |
| bac0 | 20 74 68 65 20 65 64 69 74 69 6e 67 0a 61 72 65 61 2e 20 49 66 20 74 68 65 20 63 75 72 72 65 6e | .the.editing.area..If.the.curren |
| bae0 | 74 20 62 75 66 66 65 72 20 63 6f 6e 74 61 69 6e 73 20 4d 4d 4c 20 74 61 67 73 2c 0a 60 6f 72 67 | t.buffer.contains.MML.tags,.`org |
| bb00 | 2d 6d 73 67 2d 65 64 69 74 2d 6d 6f 64 65 27 20 69 73 20 6e 6f 74 20 61 63 74 69 76 61 74 65 64 | -msg-edit-mode'.is.not.activated |
| bb20 | 20 61 73 20 4f 72 67 4d 73 67 20 64 6f 65 73 20 6e 6f 74 20 73 75 70 70 6f 72 74 0a 4d 4d 4c 20 | .as.OrgMsg.does.not.support.MML. |
| bb40 | 74 61 67 73 2e 22 0a 20 20 28 75 6e 6c 65 73 73 20 28 65 71 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 | tags."...(unless.(eq.major-mode. |
| bb60 | 27 6f 72 67 2d 6d 73 67 2d 65 64 69 74 2d 6d 6f 64 65 29 0a 20 20 20 20 28 6d 65 73 73 61 67 65 | 'org-msg-edit-mode).....(message |
| bb80 | 2d 67 6f 74 6f 2d 62 6f 64 79 29 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 74 79 70 65 20 28 63 6f | -goto-body).....(let*.((type.(co |
| bba0 | 6e 64 20 28 28 6e 6f 74 20 28 6f 72 67 2d 6d 73 67 2d 6d 65 73 73 61 67 65 2d 66 65 74 63 68 2d | nd.((not.(org-msg-message-fetch- |
| bbc0 | 66 69 65 6c 64 20 22 73 75 62 6a 65 63 74 22 29 29 20 27 6e 65 77 29 0a 09 09 20 20 20 20 20 20 | field."subject")).'new)......... |
| bbe0 | 20 28 28 6f 72 67 2d 6d 73 67 2d 6d 75 61 2d 63 61 6c 6c 20 27 61 72 74 69 63 6c 65 2d 68 74 6d | .((org-msg-mua-call.'article-htm |
| bc00 | 6c 70 29 20 27 72 65 70 6c 79 2d 74 6f 2d 68 74 6d 6c 29 0a 09 09 20 20 20 20 20 20 20 28 27 72 | lp).'reply-to-html)..........('r |
| bc20 | 65 70 6c 79 2d 74 6f 2d 74 65 78 74 29 29 29 0a 09 20 20 20 28 61 6c 74 65 72 6e 61 74 69 76 65 | eply-to-text))).....(alternative |
| bc40 | 73 20 28 6f 72 67 2d 6d 73 67 2d 67 65 74 2d 61 6c 74 65 72 6e 61 74 69 76 65 73 20 74 79 70 65 | s.(org-msg-get-alternatives.type |
| bc60 | 29 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 61 6c 74 65 72 6e 61 74 69 76 65 73 0a 09 28 6c | ))).......(when.alternatives..(l |
| bc80 | 65 74 2d 61 6c 69 73 74 20 28 6f 72 67 2d 6d 73 67 2d 63 6f 6d 70 6f 73 69 74 69 6f 6e 2d 70 61 | et-alist.(org-msg-composition-pa |
| bca0 | 72 61 6d 65 74 65 72 73 20 74 79 70 65 20 61 6c 74 65 72 6e 61 74 69 76 65 73 29 0a 09 20 20 28 | rameters.type.alternatives)....( |
| bcc0 | 75 6e 6c 65 73 73 20 28 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 6f 72 67 2d 6d 73 67 2d 6f | unless.(search-forward.org-msg-o |
| bce0 | 70 74 69 6f 6e 73 20 6e 69 6c 20 74 29 0a 09 20 20 20 20 28 69 6e 73 65 72 74 20 28 6f 72 67 2d | ptions.nil.t)......(insert.(org- |
| bd00 | 6d 73 67 2d 68 65 61 64 65 72 20 28 77 68 65 6e 20 28 65 71 20 2e 73 74 79 6c 65 20 27 74 6f 70 | msg-header.(when.(eq..style.'top |
| bd20 | 2d 70 6f 73 74 69 6e 67 29 0a 09 09 09 09 20 20 20 20 20 20 28 6f 72 67 2d 6d 73 67 2d 6d 75 61 | -posting)...........(org-msg-mua |
| bd40 | 2d 63 61 6c 6c 20 27 73 61 76 65 2d 61 72 74 69 63 6c 65 2d 66 6f 72 2d 72 65 70 6c 79 29 29 0a | -call.'save-article-for-reply)). |
| bd60 | 09 09 09 09 20 20 20 20 61 6c 74 65 72 6e 61 74 69 76 65 73 29 29 0a 09 20 20 20 20 28 77 68 65 | ........alternatives))......(whe |
| bd80 | 6e 20 2e 67 72 65 65 74 69 6e 67 2d 66 6d 74 0a 09 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 28 | n..greeting-fmt........(insert.( |
| bda0 | 66 6f 72 6d 61 74 20 2e 67 72 65 65 74 69 6e 67 2d 66 6d 74 0a 09 09 09 20 20 20 20 20 20 28 69 | format..greeting-fmt..........(i |
| bdc0 | 66 20 28 65 71 20 74 79 70 65 20 27 6e 65 77 29 0a 09 09 09 09 20 20 22 22 0a 09 09 09 09 28 63 | f.(eq.type.'new)......."".....(c |
| bde0 | 6f 6e 63 61 74 20 22 20 22 20 28 6f 72 67 2d 6d 73 67 2d 67 65 74 2d 74 6f 2d 6e 61 6d 65 29 29 | oncat.".".(org-msg-get-to-name)) |
| be00 | 29 29 29 29 0a 09 20 20 20 20 28 77 68 65 6e 20 28 65 71 20 2e 73 74 79 6c 65 20 27 74 6f 70 2d | ))))......(when.(eq..style.'top- |
| be20 | 70 6f 73 74 69 6e 67 29 0a 09 20 20 20 20 20 20 28 73 65 74 71 20 6d 6d 6c 2d 63 6f 6e 74 65 6e | posting)........(setq.mml-conten |
| be40 | 74 2d 64 69 73 70 6f 73 69 74 69 6f 6e 2d 61 6c 69 73 74 0a 09 09 20 20 20 20 28 61 70 70 65 6e | t-disposition-alist.......(appen |
| be60 | 64 20 28 6f 72 67 2d 6d 73 67 2d 2d 6d 6d 6c 2d 63 6f 6e 74 65 6e 74 2d 64 69 73 70 6f 73 69 74 | d.(org-msg--mml-content-disposit |
| be80 | 69 6f 6e 2d 61 6c 69 73 74 29 0a 09 09 09 20 20 20 20 6d 6d 6c 2d 63 6f 6e 74 65 6e 74 2d 64 69 | ion-alist)........mml-content-di |
| bea0 | 73 70 6f 73 69 74 69 6f 6e 2d 61 6c 69 73 74 29 29 0a 09 20 20 20 20 20 20 28 73 61 76 65 2d 65 | sposition-alist))........(save-e |
| bec0 | 78 63 75 72 73 69 6f 6e 0a 09 09 28 69 6e 73 65 72 74 20 22 5c 6e 5c 6e 22 20 6f 72 67 2d 6d 73 | xcursion...(insert."\n\n".org-ms |
| bee0 | 67 2d 73 65 70 61 72 61 74 6f 72 20 22 5c 6e 22 29 0a 09 09 28 64 65 6c 65 74 65 2d 72 65 67 69 | g-separator."\n")...(delete-regi |
| bf00 | 6f 6e 20 28 6c 69 6e 65 2d 62 65 67 69 6e 6e 69 6e 67 2d 70 6f 73 69 74 69 6f 6e 29 20 28 31 2b | on.(line-beginning-position).(1+ |
| bf20 | 20 28 6c 69 6e 65 2d 65 6e 64 2d 70 6f 73 69 74 69 6f 6e 29 29 29 0a 09 09 28 64 6f 6c 69 73 74 | .(line-end-position)))...(dolist |
| bf40 | 20 28 72 65 70 20 27 28 28 22 5e 3e 2b 20 2a 22 20 2e 20 22 22 29 20 28 22 5f 5f 5f 2b 22 20 2e | .(rep.'(("^>+.*"..."").("___+".. |
| bf60 | 20 22 2d 2d 2d 22 29 29 29 0a 09 09 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 09 09 | ."---"))).....(save-excursion... |
| bf80 | 20 20 20 20 28 77 68 69 6c 65 20 28 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 28 63 | ....(while.(re-search-forward.(c |
| bfa0 | 61 72 20 72 65 70 29 20 6e 69 6c 20 74 29 0a 09 09 20 20 20 20 20 20 28 72 65 70 6c 61 63 65 2d | ar.rep).nil.t).........(replace- |
| bfc0 | 6d 61 74 63 68 20 28 63 64 72 20 72 65 70 29 29 29 29 29 0a 09 09 28 6f 72 67 2d 65 73 63 61 70 | match.(cdr.rep)))))...(org-escap |
| bfe0 | 65 2d 63 6f 64 65 2d 69 6e 2d 72 65 67 69 6f 6e 20 28 70 6f 69 6e 74 29 20 28 70 6f 69 6e 74 2d | e-code-in-region.(point).(point- |
| c000 | 6d 61 78 29 29 29 29 0a 09 20 20 20 20 28 77 68 65 6e 20 2e 73 69 67 6e 61 74 75 72 65 0a 09 20 | max))))......(when..signature... |
| c020 | 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 65 71 20 2e 73 74 79 6c 65 20 27 74 6f 70 2d 70 6f 73 | .....(unless.(eq..style.'top-pos |
| c040 | 74 69 6e 67 29 0a 09 09 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 29 | ting)...(goto-char.(point-max))) |
| c060 | 0a 09 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 2e 73 69 67 6e 61 74 75 72 65 29 29 29 0a 09 20 | ........(insert..signature)))... |
| c080 | 20 28 69 66 20 28 6f 72 67 2d 6d 73 67 2d 6d 65 73 73 61 67 65 2d 66 65 74 63 68 2d 66 69 65 6c | .(if.(org-msg-message-fetch-fiel |
| c0a0 | 64 20 22 74 6f 22 29 0a 09 20 20 20 20 20 20 28 6f 72 67 2d 6d 73 67 2d 67 6f 74 6f 2d 62 6f 64 | d."to")........(org-msg-goto-bod |
| c0c0 | 79 29 0a 09 20 20 20 20 28 6d 65 73 73 61 67 65 2d 67 6f 74 6f 2d 74 6f 29 29 0a 09 20 20 3b 3b | y)......(message-goto-to))....;; |
| c0e0 | 20 50 72 65 73 65 72 76 65 20 74 68 65 20 62 75 66 66 65 72 2d 6c 6f 63 61 6c 20 76 61 6c 75 65 | .Preserve.the.buffer-local.value |
| c100 | 20 6f 66 20 75 73 65 72 2d 6d 61 69 6c 2d 61 64 64 72 65 73 73 20 74 6f 0a 09 20 20 3b 3b 20 65 | .of.user-mail-address.to....;;.e |
| c120 | 6e 73 75 72 65 20 74 68 61 74 20 6d 65 73 73 61 67 65 20 49 44 73 20 67 65 6e 65 72 61 74 65 64 | nsure.that.message.IDs.generated |
| c140 | 20 66 72 6f 6d 20 69 74 20 77 69 6c 6c 20 62 65 20 75 73 69 6e 67 20 61 0a 09 20 20 3b 3b 20 64 | .from.it.will.be.using.a....;;.d |
| c160 | 6f 6d 61 69 6e 20 6e 61 6d 65 20 74 68 61 74 20 6d 61 74 63 68 65 73 20 74 68 65 20 73 65 6e 64 | omain.name.that.matches.the.send |
| c180 | 65 72 2e 0a 09 20 20 28 6c 65 74 20 28 28 61 64 64 72 65 73 73 20 75 73 65 72 2d 6d 61 69 6c 2d | er.....(let.((address.user-mail- |
| c1a0 | 61 64 64 72 65 73 73 29 29 0a 09 20 20 20 20 28 6f 72 67 2d 6d 73 67 2d 65 64 69 74 2d 6d 6f 64 | address))......(org-msg-edit-mod |
| c1c0 | 65 29 0a 09 20 20 20 20 28 73 65 74 71 2d 6c 6f 63 61 6c 20 75 73 65 72 2d 6d 61 69 6c 2d 61 64 | e)......(setq-local.user-mail-ad |
| c1e0 | 64 72 65 73 73 20 61 64 64 72 65 73 73 29 29 29 0a 09 28 73 65 74 2d 62 75 66 66 65 72 2d 6d 6f | dress.address)))..(set-buffer-mo |
| c200 | 64 69 66 69 65 64 2d 70 20 6e 69 6c 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6d 73 | dified-p.nil)))))..(defun.org-ms |
| c220 | 67 2d 70 6f 73 74 2d 73 65 74 75 70 2d 2d 69 66 2d 6e 6f 74 2d 72 65 70 6c 79 20 28 26 72 65 73 | g-post-setup--if-not-reply.(&res |
| c240 | 74 20 61 72 67 73 29 0a 20 20 22 48 65 6c 70 65 72 20 66 6f 72 20 6e 65 77 20 6d 61 69 6c 20 73 | t.args)..."Helper.for.new.mail.s |
| c260 | 65 74 75 70 20 76 73 20 72 65 70 6c 79 20 69 6e 20 6e 6f 74 6d 75 63 68 22 0a 20 20 28 75 6e 6c | etup.vs.reply.in.notmuch"...(unl |
| c280 | 65 73 73 20 28 6f 72 67 2d 6d 73 67 2d 6d 65 73 73 61 67 65 2d 66 65 74 63 68 2d 66 69 65 6c 64 | ess.(org-msg-message-fetch-field |
| c2a0 | 20 22 73 75 62 6a 65 63 74 22 29 0a 20 20 20 20 28 6f 72 67 2d 6d 73 67 2d 70 6f 73 74 2d 73 65 | ."subject").....(org-msg-post-se |
| c2c0 | 74 75 70 20 61 72 67 73 29 29 29 0a 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 72 67 2d 6d 73 67 2d | tup.args)))..(defalias.'org-msg- |
| c2e0 | 73 65 6e 64 2d 6e 6f 74 6d 75 63 68 20 27 6e 6f 74 6d 75 63 68 2d 6d 75 61 2d 73 65 6e 64 29 0a | send-notmuch.'notmuch-mua-send). |
| c300 | 28 64 65 66 61 6c 69 61 73 20 27 6f 72 67 2d 6d 73 67 2d 73 65 6e 64 2d 61 6e 64 2d 65 78 69 74 | (defalias.'org-msg-send-and-exit |
| c320 | 2d 6e 6f 74 6d 75 63 68 20 27 6e 6f 74 6d 75 63 68 2d 6d 75 61 2d 73 65 6e 64 2d 61 6e 64 2d 65 | -notmuch.'notmuch-mua-send-and-e |
| c340 | 78 69 74 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6d 73 67 2d 73 61 6e 69 74 79 2d 63 68 65 63 | xit)..(defun.org-msg-sanity-chec |
| c360 | 6b 20 28 29 0a 20 20 22 53 61 6e 69 74 79 20 63 68 65 63 6b 20 74 68 65 20 6d 61 69 6c 20 62 6f | k.()..."Sanity.check.the.mail.bo |
| c380 | 64 79 20 66 6f 72 20 61 6e 79 20 72 65 66 65 72 65 6e 63 65 20 74 6f 20 61 20 6d 69 73 73 69 6e | dy.for.any.reference.to.a.missin |
| c3a0 | 67 20 66 69 6c 65 0a 61 74 74 61 63 68 6d 65 6e 74 2e 20 54 68 65 20 64 65 74 65 63 74 69 6f 6e | g.file.attachment..The.detection |
| c3c0 | 20 72 65 6c 69 65 73 20 6f 6e 20 74 68 65 20 72 65 67 75 6c 61 72 20 65 78 70 72 65 73 73 69 6f | .relies.on.the.regular.expressio |
| c3e0 | 6e 0a 64 65 66 69 6e 65 64 20 62 79 20 74 68 65 20 60 6f 72 67 2d 6d 73 67 2d 61 74 74 61 63 68 | n.defined.by.the.`org-msg-attach |
| c400 | 65 64 2d 66 69 6c 65 2d 72 65 66 65 72 65 6e 63 65 27 20 63 75 73 74 6f 6d 69 7a 61 74 69 6f 6e | ed-file-reference'.customization |
| c420 | 0a 76 61 72 69 61 62 6c 65 2e 22 0a 20 20 28 6f 72 20 28 6f 72 67 2d 6d 73 67 2d 67 65 74 2d 70 | .variable."...(or.(org-msg-get-p |
| c440 | 72 6f 70 20 22 61 74 74 61 63 68 6d 65 6e 74 22 29 0a 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 | rop."attachment").......(save-ex |
| c460 | 63 75 72 73 69 6f 6e 0a 09 28 67 6f 74 6f 2d 63 68 61 72 20 28 6f 72 67 2d 6d 73 67 2d 73 74 61 | cursion..(goto-char.(org-msg-sta |
| c480 | 72 74 29 29 0a 09 28 77 68 69 6c 65 20 28 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 | rt))..(while.(re-search-forward. |
| c4a0 | 6f 72 67 2d 70 72 6f 70 65 72 74 79 2d 72 65 20 6e 69 6c 20 74 29 0a 09 20 20 28 66 6f 72 77 61 | org-property-re.nil.t)....(forwa |
| c4c0 | 72 64 2d 6c 69 6e 65 29 29 0a 09 28 6e 6f 74 20 28 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 | rd-line))..(not.(re-search-forwa |
| c4e0 | 72 64 20 6f 72 67 2d 6d 73 67 2d 61 74 74 61 63 68 65 64 2d 66 69 6c 65 2d 72 65 66 65 72 65 6e | rd.org-msg-attached-file-referen |
| c500 | 63 65 20 28 6f 72 67 2d 6d 73 67 2d 65 6e 64 29 20 74 29 29 29 0a 20 20 20 20 20 20 28 79 2d 6f | ce.(org-msg-end).t))).......(y-o |
| c520 | 72 2d 6e 2d 70 20 22 59 6f 75 20 6d 61 79 20 68 61 76 65 20 66 6f 72 67 6f 74 74 65 6e 20 74 6f | r-n-p."You.may.have.forgotten.to |
| c540 | 20 61 74 74 61 63 68 20 61 20 66 69 6c 65 2e 20 44 6f 20 79 6f 75 20 73 74 69 6c 6c 20 77 61 6e | .attach.a.file..Do.you.still.wan |
| c560 | 74 20 5c 0a 74 6f 20 70 72 6f 63 65 65 64 3f 22 29 0a 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 | t.\.to.proceed?").......(error." |
| c580 | 41 62 6f 72 74 65 64 22 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6d 73 67 2d 63 74 72 6c | Aborted")))..(defun.org-msg-ctrl |
| c5a0 | 2d 63 2d 63 74 72 6c 2d 63 20 28 29 0a 20 20 22 53 65 6e 64 20 6d 65 73 73 61 67 65 20 6c 69 6b | -c-ctrl-c.()..."Send.message.lik |
| c5c0 | 65 20 60 6d 65 73 73 61 67 65 2d 73 65 6e 64 2d 61 6e 64 2d 65 78 69 74 27 2e 0a 49 66 20 74 68 | e.`message-send-and-exit'..If.th |
| c5e0 | 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 20 69 73 20 4f 72 67 4d 73 67 20 62 75 66 66 65 | e.current.buffer.is.OrgMsg.buffe |
| c600 | 72 20 61 6e 64 20 4f 72 67 4d 73 67 20 69 73 20 65 6e 61 62 6c 65 64 20 28 73 65 65 0a 60 6f 72 | r.and.OrgMsg.is.enabled.(see.`or |
| c620 | 67 2d 6d 73 67 2d 74 6f 67 67 6c 65 27 29 2c 20 69 74 20 63 61 6c 6c 73 20 60 6d 65 73 73 61 67 | g-msg-toggle'),.it.calls.`messag |
| c640 | 65 2d 73 65 6e 64 2d 61 6e 64 2d 65 78 69 74 27 2e 20 57 69 74 68 20 74 68 65 0a 75 6e 69 76 65 | e-send-and-exit'..With.the.unive |
| c660 | 72 73 61 6c 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 2c 20 69 74 20 63 61 6c 6c 73 20 60 | rsal.prefix.argument,.it.calls.` |
| c680 | 6d 65 73 73 61 67 65 2d 73 65 6e 64 27 2e 22 0a 20 20 28 77 68 65 6e 20 28 65 71 20 6d 61 6a 6f | message-send'."...(when.(eq.majo |
| c6a0 | 72 2d 6d 6f 64 65 20 27 6f 72 67 2d 6d 73 67 2d 65 64 69 74 2d 6d 6f 64 65 29 0a 20 20 20 20 28 | r-mode.'org-msg-edit-mode).....( |
| c6c0 | 6f 72 67 2d 6d 73 67 2d 73 61 6e 69 74 79 2d 63 68 65 63 6b 29 0a 20 20 20 20 28 69 66 20 63 75 | org-msg-sanity-check).....(if.cu |
| c6e0 | 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 0a 09 28 6f 72 67 2d 6d 73 67 2d 6d 75 61 2d 63 | rrent-prefix-arg..(org-msg-mua-c |
| c700 | 61 6c 6c 20 27 73 65 6e 64 20 27 6d 65 73 73 61 67 65 2d 73 65 6e 64 29 0a 20 20 20 20 20 20 28 | all.'send.'message-send).......( |
| c720 | 6f 72 67 2d 6d 73 67 2d 6d 75 61 2d 63 61 6c 6c 20 27 73 65 6e 64 2d 61 6e 64 2d 65 78 69 74 20 | org-msg-mua-call.'send-and-exit. |
| c740 | 27 6d 65 73 73 61 67 65 2d 73 65 6e 64 2d 61 6e 64 2d 65 78 69 74 29 29 29 29 0a 0a 28 64 65 66 | 'message-send-and-exit))))..(def |
| c760 | 75 6e 20 6f 72 67 2d 6d 73 67 2d 74 61 62 20 28 29 0a 20 20 22 43 6f 6d 70 6c 65 74 65 20 6e 61 | un.org-msg-tab.()..."Complete.na |
| c780 | 6d 65 73 20 6f 72 20 4f 72 67 20 6d 6f 64 65 20 76 69 73 69 62 69 6c 69 74 79 20 63 79 63 6c 65 | mes.or.Org.mode.visibility.cycle |
| c7a0 | 2e 0a 49 66 20 60 70 6f 69 6e 74 27 20 69 73 20 69 6e 20 74 68 65 20 6d 61 69 6c 20 68 65 61 64 | ..If.`point'.is.in.the.mail.head |
| c7c0 | 65 72 20 72 65 67 69 6f 6e 2c 20 74 68 65 20 60 6d 65 73 73 61 67 65 2d 74 61 62 27 0a 66 75 6e | er.region,.the.`message-tab'.fun |
| c7e0 | 63 74 69 6f 6e 20 69 73 20 63 61 6c 6c 65 64 2e 20 20 60 6f 72 67 2d 63 79 63 6c 65 27 20 69 73 | ction.is.called...`org-cycle'.is |
| c800 | 20 63 61 6c 6c 65 64 20 6f 74 68 65 72 77 69 73 65 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 | .called.otherwise."...(interacti |
| c820 | 76 65 29 0a 20 20 28 69 66 20 28 6d 65 73 73 61 67 65 2d 69 6e 2d 62 6f 64 79 2d 70 29 0a 20 20 | ve)...(if.(message-in-body-p)... |
| c840 | 20 20 20 20 28 6f 72 67 2d 63 79 63 6c 65 29 0a 20 20 20 20 28 6d 65 73 73 61 67 65 2d 74 61 62 | ....(org-cycle).....(message-tab |
| c860 | 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6d 73 67 2d 61 74 74 61 63 68 2d 61 74 74 61 63 | )))..(defun.org-msg-attach-attac |
| c880 | 68 20 28 66 69 6c 65 20 26 72 65 73 74 20 5f 61 72 67 73 29 0a 20 20 22 4c 69 6e 6b 20 46 49 4c | h.(file.&rest._args)..."Link.FIL |
| c8a0 | 45 20 69 6e 74 6f 20 74 68 65 20 6c 69 73 74 20 6f 66 20 61 74 74 61 63 68 6d 65 6e 74 2e 22 0a | E.into.the.list.of.attachment.". |
| c8c0 | 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 6c 69 73 74 20 28 72 65 61 64 2d 66 69 6c 65 2d | ..(interactive.(list.(read-file- |
| c8e0 | 6e 61 6d 65 20 22 46 69 6c 65 20 74 6f 20 61 74 74 61 63 68 3a 20 22 29 29 29 0a 20 20 28 6c 65 | name."File.to.attach:.")))...(le |
| c900 | 74 20 28 28 66 69 6c 65 73 20 28 6f 72 67 2d 6d 73 67 2d 67 65 74 2d 70 72 6f 70 20 22 61 74 74 | t.((files.(org-msg-get-prop."att |
| c920 | 61 63 68 6d 65 6e 74 22 29 29 29 0a 20 20 20 20 28 6f 72 67 2d 6d 73 67 2d 73 65 74 2d 70 72 6f | achment"))).....(org-msg-set-pro |
| c940 | 70 20 22 61 74 74 61 63 68 6d 65 6e 74 22 20 28 70 75 73 68 20 66 69 6c 65 20 66 69 6c 65 73 29 | p."attachment".(push.file.files) |
| c960 | 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6d 73 67 2d 61 74 74 61 63 68 2d 64 65 6c 65 74 | )))..(defun.org-msg-attach-delet |
| c980 | 65 20 28 29 0a 20 20 22 44 65 6c 65 74 65 20 61 20 73 69 6e 67 6c 65 20 61 74 74 61 63 68 6d 65 | e.()..."Delete.a.single.attachme |
| c9a0 | 6e 74 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 2a 20 28 28 66 | nt."...(interactive)...(let*.((f |
| c9c0 | 69 6c 65 73 20 28 6f 72 67 2d 6d 73 67 2d 67 65 74 2d 70 72 6f 70 20 22 61 74 74 61 63 68 6d 65 | iles.(org-msg-get-prop."attachme |
| c9e0 | 6e 74 22 29 29 0a 09 20 28 64 20 28 63 6f 6d 70 6c 65 74 69 6e 67 2d 72 65 61 64 20 22 46 69 6c | nt"))...(d.(completing-read."Fil |
| ca00 | 65 20 74 6f 20 72 65 6d 6f 76 65 3a 20 22 20 66 69 6c 65 73 29 29 29 0a 20 20 20 20 28 6f 72 67 | e.to.remove:.".files))).....(org |
| ca20 | 2d 6d 73 67 2d 73 65 74 2d 70 72 6f 70 20 22 61 74 74 61 63 68 6d 65 6e 74 22 20 28 64 65 6c 65 | -msg-set-prop."attachment".(dele |
| ca40 | 74 65 20 64 20 66 69 6c 65 73 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6d 73 67 2d 61 | te.d.files))))..(defun.org-msg-a |
| ca60 | 74 74 61 63 68 20 28 29 0a 20 20 22 54 68 65 20 64 69 73 70 61 74 63 68 65 72 20 66 6f 72 20 61 | ttach.()..."The.dispatcher.for.a |
| ca80 | 74 74 61 63 68 6d 65 6e 74 20 63 6f 6d 6d 61 6e 64 73 2e 0a 53 68 6f 77 73 20 61 20 6c 69 73 74 | ttachment.commands..Shows.a.list |
| caa0 | 20 6f 66 20 63 6f 6d 6d 61 6e 64 73 20 61 6e 64 20 70 72 6f 6d 70 74 73 20 66 6f 72 20 61 6e 6f | .of.commands.and.prompts.for.ano |
| cac0 | 74 68 65 72 20 6b 65 79 20 74 6f 20 65 78 65 63 75 74 65 20 61 0a 63 6f 6d 6d 61 6e 64 2e 22 0a | ther.key.to.execute.a.command.". |
| cae0 | 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 63 29 0a 20 20 20 20 28 | ..(interactive)...(let.(c).....( |
| cb00 | 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 28 73 61 76 65 2d 77 69 6e 64 6f | save-excursion.......(save-windo |
| cb20 | 77 2d 65 78 63 75 72 73 69 6f 6e 0a 09 28 77 69 74 68 2d 6f 75 74 70 75 74 2d 74 6f 2d 74 65 6d | w-excursion..(with-output-to-tem |
| cb40 | 70 2d 62 75 66 66 65 72 20 22 2a 4f 72 67 20 41 74 74 61 63 68 2a 22 0a 09 20 20 28 70 72 69 6e | p-buffer."*Org.Attach*"....(prin |
| cb60 | 63 20 22 53 65 6c 65 63 74 20 61 6e 20 41 74 74 61 63 68 6d 65 6e 74 20 43 6f 6d 6d 61 6e 64 3a | c."Select.an.Attachment.Command: |
| cb80 | 0a 0a 61 20 20 20 20 20 20 20 53 65 6c 65 63 74 20 61 20 66 69 6c 65 20 61 6e 64 20 61 74 74 61 | ..a.......Select.a.file.and.atta |
| cba0 | 63 68 20 69 74 20 74 68 69 73 20 6d 61 69 6c 2e 0a 64 20 20 20 20 20 20 20 44 65 6c 65 74 65 20 | ch.it.this.mail..d.......Delete. |
| cbc0 | 6f 6e 65 20 61 74 74 61 63 68 6d 65 6e 74 2c 20 79 6f 75 20 77 69 6c 6c 20 62 65 20 70 72 6f 6d | one.attachment,.you.will.be.prom |
| cbe0 | 70 74 65 64 20 66 6f 72 20 61 20 66 69 6c 65 20 6e 61 6d 65 2e 22 29 29 0a 09 28 6f 72 67 2d 66 | pted.for.a.file.name."))..(org-f |
| cc00 | 69 74 2d 77 69 6e 64 6f 77 2d 74 6f 2d 62 75 66 66 65 72 20 28 67 65 74 2d 62 75 66 66 65 72 2d | it-window-to-buffer.(get-buffer- |
| cc20 | 77 69 6e 64 6f 77 20 22 2a 4f 72 67 20 41 74 74 61 63 68 2a 22 29 29 0a 09 28 6d 65 73 73 61 67 | window."*Org.Attach*"))..(messag |
| cc40 | 65 20 22 53 65 6c 65 63 74 20 63 6f 6d 6d 61 6e 64 3a 20 5b 61 64 5d 22 29 0a 09 28 73 65 74 71 | e."Select.command:.[ad]")..(setq |
| cc60 | 20 63 20 28 72 65 61 64 2d 63 68 61 72 2d 65 78 63 6c 75 73 69 76 65 29 29 0a 09 28 61 6e 64 20 | .c.(read-char-exclusive))..(and. |
| cc80 | 28 67 65 74 2d 62 75 66 66 65 72 20 22 2a 4f 72 67 20 41 74 74 61 63 68 2a 22 29 20 28 6b 69 6c | (get-buffer."*Org.Attach*").(kil |
| cca0 | 6c 2d 62 75 66 66 65 72 20 22 2a 4f 72 67 20 41 74 74 61 63 68 2a 22 29 29 29 29 0a 20 20 20 20 | l-buffer."*Org.Attach*"))))..... |
| ccc0 | 28 63 6f 6e 64 20 28 28 6d 65 6d 71 20 63 20 27 28 3f 61 20 3f 5c 43 2d 61 29 29 20 28 63 61 6c | (cond.((memq.c.'(?a.?\C-a)).(cal |
| cce0 | 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 6c 79 20 27 6f 72 67 2d 6d 73 67 2d 61 74 74 61 63 68 2d | l-interactively.'org-msg-attach- |
| cd00 | 61 74 74 61 63 68 29 29 0a 09 20 20 28 28 6d 65 6d 71 20 63 20 27 28 3f 64 20 3f 5c 43 2d 64 29 | attach))....((memq.c.'(?d.?\C-d) |
| cd20 | 29 20 28 63 61 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 6c 79 20 27 6f 72 67 2d 6d 73 67 2d 61 | ).(call-interactively.'org-msg-a |
| cd40 | 74 74 61 63 68 2d 64 65 6c 65 74 65 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6d 73 | ttach-delete)))))..(defun.org-ms |
| cd60 | 67 2d 64 69 72 65 64 2d 61 74 74 61 63 68 20 28 6f 72 69 67 2d 66 75 6e 20 66 69 6c 65 73 2d 74 | g-dired-attach.(orig-fun.files-t |
| cd80 | 6f 2d 61 74 74 61 63 68 29 0a 20 20 22 41 74 74 61 63 68 20 64 69 72 65 64 27 73 20 6d 61 72 6b | o-attach)..."Attach.dired's.mark |
| cda0 | 65 64 20 66 69 6c 65 73 20 74 6f 20 61 20 4f 72 67 4d 73 67 20 6d 65 73 73 61 67 65 20 63 6f 6d | ed.files.to.a.OrgMsg.message.com |
| cdc0 | 70 6f 73 69 74 69 6f 6e 2e 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 75 73 65 64 20 | position..This.function.is.used. |
| cde0 | 61 73 20 61 6e 20 61 64 76 69 63 65 20 66 75 6e 63 74 69 6f 6e 20 6f 66 0a 60 67 6e 75 73 2d 64 | as.an.advice.function.of.`gnus-d |
| ce00 | 69 72 65 64 2d 61 74 74 61 63 68 27 2e 22 0a 20 20 28 63 6c 2d 66 6c 65 74 2a 20 28 28 6d 61 69 | ired-attach'."...(cl-flet*.((mai |
| ce20 | 6c 2d 62 75 66 66 65 72 2d 70 20 28 62 29 0a 09 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 | l-buffer-p.(b)........(with-curr |
| ce40 | 65 6e 74 2d 62 75 66 66 65 72 20 62 0a 09 09 28 61 6e 64 20 28 64 65 72 69 76 65 64 2d 6d 6f 64 | ent-buffer.b...(and.(derived-mod |
| ce60 | 65 2d 70 20 27 6f 72 67 2d 6d 73 67 2d 65 64 69 74 2d 6d 6f 64 65 29 0a 09 09 20 20 20 20 20 28 | e-p.'org-msg-edit-mode)........( |
| ce80 | 6e 75 6c 6c 20 6d 65 73 73 61 67 65 2d 73 65 6e 74 2d 6d 65 73 73 61 67 65 2d 76 69 61 29 29 29 | null.message-sent-message-via))) |
| cea0 | 29 0a 09 20 20 20 20 20 28 6d 61 69 6c 2d 62 75 66 66 65 72 73 20 28 29 0a 09 20 20 20 20 20 20 | ).......(mail-buffers.()........ |
| cec0 | 28 77 68 65 6e 2d 6c 65 74 20 28 62 75 66 73 20 28 63 6c 2d 72 65 6d 6f 76 65 2d 69 66 2d 6e 6f | (when-let.(bufs.(cl-remove-if-no |
| cee0 | 74 20 23 27 6d 61 69 6c 2d 62 75 66 66 65 72 2d 70 20 28 62 75 66 66 65 72 2d 6c 69 73 74 29 29 | t.#'mail-buffer-p.(buffer-list)) |
| cf00 | 29 0a 09 09 28 6d 61 70 63 61 72 20 27 62 75 66 66 65 72 2d 6e 61 6d 65 20 62 75 66 73 29 29 29 | )...(mapcar.'buffer-name.bufs))) |
| cf20 | 29 0a 20 20 20 20 28 63 6c 2d 6c 65 74 66 20 28 28 28 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f | ).....(cl-letf.(((symbol-functio |
| cf40 | 6e 20 23 27 6d 6d 6c 2d 61 74 74 61 63 68 2d 66 69 6c 65 29 20 23 27 6f 72 67 2d 6d 73 67 2d 61 | n.#'mml-attach-file).#'org-msg-a |
| cf60 | 74 74 61 63 68 2d 61 74 74 61 63 68 29 0a 09 20 20 20 20 20 20 28 28 73 79 6d 62 6f 6c 2d 66 75 | ttach-attach)........((symbol-fu |
| cf80 | 6e 63 74 69 6f 6e 20 23 27 67 6e 75 73 2d 64 69 72 65 64 2d 6d 61 69 6c 2d 62 75 66 66 65 72 73 | nction.#'gnus-dired-mail-buffers |
| cfa0 | 29 20 23 27 6d 61 69 6c 2d 62 75 66 66 65 72 73 29 29 0a 20 20 20 20 20 20 28 66 75 6e 63 61 6c | ).#'mail-buffers)).......(funcal |
| cfc0 | 6c 20 6f 72 69 67 2d 66 75 6e 20 66 69 6c 65 73 2d 74 6f 2d 61 74 74 61 63 68 29 29 29 29 0a 0a | l.orig-fun.files-to-attach)))).. |
| cfe0 | 28 64 65 66 75 6e 20 6f 72 67 2d 6d 73 67 2d 73 74 61 72 74 20 28 29 0a 20 20 22 52 65 74 75 72 | (defun.org-msg-start.()..."Retur |
| d000 | 6e 20 74 68 65 20 70 6f 69 6e 74 20 6f 66 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 | n.the.point.of.the.beginning.of. |
| d020 | 74 68 65 20 6d 65 73 73 61 67 65 20 62 6f 64 79 2e 22 0a 20 20 28 73 61 76 65 2d 65 78 63 75 72 | the.message.body."...(save-excur |
| d040 | 73 69 6f 6e 0a 20 20 20 20 28 6d 65 73 73 61 67 65 2d 67 6f 74 6f 2d 62 6f 64 79 29 0a 20 20 20 | sion.....(message-goto-body).... |
| d060 | 20 28 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 23 2b 4f 50 54 49 4f 4e 53 3a 22 20 6e 69 | .(search-forward."#+OPTIONS:".ni |
| d080 | 6c 20 74 29 0a 20 20 20 20 28 6c 69 6e 65 2d 62 65 67 69 6e 6e 69 6e 67 2d 70 6f 73 69 74 69 6f | l.t).....(line-beginning-positio |
| d0a0 | 6e 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6d 73 67 2d 65 6e 64 20 28 29 0a 20 20 22 52 | n)))..(defun.org-msg-end.()..."R |
| d0c0 | 65 74 75 72 6e 20 74 68 65 20 70 6f 69 6e 74 20 6f 66 20 74 68 65 20 65 6e 64 20 6f 66 20 74 68 | eturn.the.point.of.the.end.of.th |
| d0e0 | 65 20 6d 65 73 73 61 67 65 20 62 6f 64 79 2e 22 0a 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 | e.message.body."...(save-excursi |
| d100 | 6f 6e 0a 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 | on.....(goto-char.(point-min)).. |
| d120 | 20 20 20 28 6f 72 20 28 77 68 65 6e 20 28 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 0a | ...(or.(when.(re-search-forward. |
| d140 | 09 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 20 22 5e 22 20 28 72 65 67 65 78 70 2d 71 75 6f 74 | ........(concat."^".(regexp-quot |
| d160 | 65 20 6f 72 67 2d 6d 73 67 2d 73 65 70 61 72 61 74 6f 72 29 20 22 24 22 29 20 6e 69 6c 20 74 29 | e.org-msg-separator)."$").nil.t) |
| d180 | 0a 09 20 20 28 6d 61 74 63 68 2d 62 65 67 69 6e 6e 69 6e 67 20 30 29 29 0a 09 28 70 6f 69 6e 74 | ....(match-beginning.0))..(point |
| d1a0 | 2d 6d 61 78 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6d 73 67 2d 67 6f 74 6f 2d 62 6f | -max))))..(defun.org-msg-goto-bo |
| d1c0 | 64 79 20 28 29 0a 20 20 22 4d 6f 76 65 20 70 6f 69 6e 74 20 74 6f 20 74 68 65 20 62 65 67 69 6e | dy.()..."Move.point.to.the.begin |
| d1e0 | 6e 69 6e 67 20 6f 66 20 74 68 65 20 6d 65 73 73 61 67 65 20 62 6f 64 79 2e 22 0a 20 20 28 69 6e | ning.of.the.message.body."...(in |
| d200 | 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d | teractive)...(goto-char.(point-m |
| d220 | 69 6e 29 29 0a 20 20 28 69 66 20 6f 72 67 2d 6d 73 67 2d 73 69 67 6e 61 74 75 72 65 0a 20 20 20 | in))...(if.org-msg-signature.... |
| d240 | 20 20 20 28 77 68 65 6e 20 28 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 6f 72 67 2d 6d 73 67 | ...(when.(search-forward.org-msg |
| d260 | 2d 73 69 67 6e 61 74 75 72 65 20 6e 69 6c 20 74 29 0a 09 28 67 6f 74 6f 2d 63 68 61 72 20 28 6d | -signature.nil.t)..(goto-char.(m |
| d280 | 61 74 63 68 2d 62 65 67 69 6e 6e 69 6e 67 20 30 29 29 29 0a 20 20 20 20 28 77 68 69 6c 65 20 28 | atch-beginning.0))).....(while.( |
| d2a0 | 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 6f 72 67 2d 70 72 6f 70 65 72 74 79 2d 72 | re-search-forward.org-property-r |
| d2c0 | 65 20 6e 69 6c 20 74 29 0a 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 6c 69 6e 65 29 29 29 29 | e.nil.t).......(forward-line)))) |
| d2e0 | 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6d 73 67 2d 66 6f 6e 74 2d 6c 6f 63 6b 2d 6d 61 6b 65 2d | ..(defun.org-msg-font-lock-make- |
| d300 | 68 65 61 64 65 72 2d 6d 61 74 63 68 65 72 20 28 72 65 67 65 78 70 29 0a 20 20 22 43 72 65 61 74 | header-matcher.(regexp)..."Creat |
| d320 | 65 20 61 20 66 75 6e 63 74 69 6f 6e 20 77 68 69 63 68 20 6c 6f 6f 6b 20 66 6f 72 20 52 45 47 45 | e.a.function.which.look.for.REGE |
| d340 | 58 50 2e 22 0a 20 20 60 28 6c 61 6d 62 64 61 20 28 6c 69 6d 69 74 29 0a 20 20 20 20 20 28 73 61 | XP."...`(lambda.(limit)......(sa |
| d360 | 76 65 2d 72 65 73 74 72 69 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 28 77 69 64 65 6e 29 0a 20 20 | ve-restriction........(widen)... |
| d380 | 20 20 20 20 20 28 6c 65 74 20 28 28 73 74 61 72 74 20 28 70 6f 69 6e 74 29 29 0a 09 20 20 20 20 | .....(let.((start.(point))...... |
| d3a0 | 20 28 63 69 74 61 74 69 6f 6e 2d 73 74 61 72 74 20 28 6f 72 67 2d 6d 73 67 2d 65 6e 64 29 29 29 | .(citation-start.(org-msg-end))) |
| d3c0 | 0a 09 20 28 77 68 65 6e 20 28 3c 20 73 74 61 72 74 20 63 69 74 61 74 69 6f 6e 2d 73 74 61 72 74 | ...(when.(<.start.citation-start |
| d3e0 | 29 0a 09 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 63 69 74 61 74 69 6f 6e 2d 73 74 61 72 74 29 | ).....(goto-char.citation-start) |
| d400 | 29 0a 09 20 28 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 2c 72 65 67 65 78 70 20 28 | )...(re-search-forward.,regexp.( |
| d420 | 70 6f 69 6e 74 2d 6d 61 78 29 20 74 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6d 73 | point-max).t)))))..(defun.org-ms |
| d440 | 67 2d 2d 6d 6d 6c 2d 63 6f 6e 74 65 6e 74 2d 64 69 73 70 6f 73 69 74 69 6f 6e 2d 61 6c 69 73 74 | g--mml-content-disposition-alist |
| d460 | 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 61 70 70 72 6f 70 72 69 61 74 65 20 70 65 | .()..."Return.the.appropriate.pe |
| d480 | 72 2d 66 69 6c 65 20 4d 49 4d 45 20 64 69 73 70 6f 73 69 74 69 6f 6e 2e 22 0a 20 20 28 6d 61 70 | r-file.MIME.disposition."...(map |
| d4a0 | 63 61 72 20 28 6c 61 6d 62 64 61 20 28 78 29 0a 09 20 20 20 20 28 63 6f 6e 73 20 28 63 6f 6e 63 | car.(lambda.(x)......(cons.(conc |
| d4c0 | 61 74 20 78 20 22 2e 2a 22 29 20 22 69 6e 6c 69 6e 65 22 29 29 0a 09 20 20 28 6f 72 67 2d 6d 73 | at.x.".*")."inline"))....(org-ms |
| d4e0 | 67 2d 67 65 74 2d 70 72 6f 70 20 22 72 65 70 6c 79 2d 74 6f 22 29 29 29 0a 0a 28 64 65 66 75 6e | g-get-prop."reply-to")))..(defun |
| d500 | 20 6f 72 67 2d 6d 73 67 2d 6b 69 6c 6c 2d 62 75 66 66 65 72 20 28 29 0a 20 20 22 44 65 6c 65 74 | .org-msg-kill-buffer.()..."Delet |
| d520 | 65 20 74 65 6d 70 6f 72 61 72 79 20 66 69 6c 65 73 2e 22 0a 20 20 28 64 6f 6c 69 73 74 20 28 66 | e.temporary.files."...(dolist.(f |
| d540 | 69 6c 65 20 28 6f 72 67 2d 6d 73 67 2d 67 65 74 2d 70 72 6f 70 20 22 72 65 70 6c 79 2d 74 6f 22 | ile.(org-msg-get-prop."reply-to" |
| d560 | 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 6e 6f 74 20 28 73 74 72 69 6e 67 3d 20 | )).....(when.(and.(not.(string=. |
| d580 | 22 22 20 66 69 6c 65 29 29 20 28 66 69 6c 65 2d 65 78 69 73 74 73 2d 70 20 66 69 6c 65 29 29 0a | "".file)).(file-exists-p.file)). |
| d5a0 | 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 66 69 6c 65 2d 64 69 72 65 63 74 6f 72 79 2d 70 20 66 | ......(cond.((file-directory-p.f |
| d5c0 | 69 6c 65 29 20 28 64 65 6c 65 74 65 2d 64 69 72 65 63 74 6f 72 79 20 66 69 6c 65 20 74 29 29 0a | ile).(delete-directory.file.t)). |
| d5e0 | 09 20 20 20 20 28 28 64 65 6c 65 74 65 2d 66 69 6c 65 20 66 69 6c 65 29 29 29 29 29 0a 20 20 28 | .....((delete-file.file)))))...( |
| d600 | 64 6f 6c 69 73 74 20 28 64 69 73 70 6f 73 69 74 69 6f 6e 20 28 6f 72 67 2d 6d 73 67 2d 2d 6d 6d | dolist.(disposition.(org-msg--mm |
| d620 | 6c 2d 63 6f 6e 74 65 6e 74 2d 64 69 73 70 6f 73 69 74 69 6f 6e 2d 61 6c 69 73 74 29 29 0a 20 20 | l-content-disposition-alist))... |
| d640 | 20 20 28 73 65 74 71 20 6d 6d 6c 2d 63 6f 6e 74 65 6e 74 2d 64 69 73 70 6f 73 69 74 69 6f 6e 2d | ..(setq.mml-content-disposition- |
| d660 | 61 6c 69 73 74 0a 09 20 20 28 64 65 6c 65 74 65 20 64 69 73 70 6f 73 69 74 69 6f 6e 20 6d 6d 6c | alist....(delete.disposition.mml |
| d680 | 2d 63 6f 6e 74 65 6e 74 2d 64 69 73 70 6f 73 69 74 69 6f 6e 2d 61 6c 69 73 74 29 29 29 0a 20 20 | -content-disposition-alist)))... |
| d6a0 | 28 77 68 65 6e 20 6f 72 67 2d 6d 73 67 2d 6d 6d 6c 2d 62 75 66 66 65 72 2d 6c 69 73 74 0a 20 20 | (when.org-msg-mml-buffer-list... |
| d6c0 | 20 20 28 6c 65 74 20 28 28 6d 6d 6c 2d 62 75 66 66 65 72 2d 6c 69 73 74 20 6f 72 67 2d 6d 73 67 | ..(let.((mml-buffer-list.org-msg |
| d6e0 | 2d 6d 6d 6c 2d 62 75 66 66 65 72 2d 6c 69 73 74 29 29 0a 20 20 20 20 20 20 28 6d 6d 6c 2d 64 65 | -mml-buffer-list)).......(mml-de |
| d700 | 73 74 72 6f 79 2d 62 75 66 66 65 72 73 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6d 73 | stroy-buffers))))..(defun.org-ms |
| d720 | 67 2d 73 74 6f 72 65 2d 6d 6d 6c 2d 62 75 66 66 65 72 73 20 28 29 0a 20 20 22 4c 6f 63 61 6c 6c | g-store-mml-buffers.()..."Locall |
| d740 | 79 20 73 74 6f 72 65 20 74 68 65 20 6c 69 73 74 20 6f 66 20 4d 4d 4c 20 74 65 6d 70 6f 72 61 72 | y.store.the.list.of.MML.temporar |
| d760 | 79 20 62 75 66 66 65 72 73 2e 22 0a 20 20 28 77 68 65 6e 20 6d 6d 6c 2d 62 75 66 66 65 72 2d 6c | y.buffers."...(when.mml-buffer-l |
| d780 | 69 73 74 0a 20 20 20 20 28 73 65 74 71 20 6f 72 67 2d 6d 73 67 2d 6d 6d 6c 2d 62 75 66 66 65 72 | ist.....(setq.org-msg-mml-buffer |
| d7a0 | 2d 6c 69 73 74 20 6d 6d 6c 2d 62 75 66 66 65 72 2d 6c 69 73 74 0a 09 20 20 6d 6d 6c 2d 62 75 66 | -list.mml-buffer-list....mml-buf |
| d7c0 | 66 65 72 2d 6c 69 73 74 20 6e 69 6c 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6d 73 67 2d | fer-list.nil)))..(defun.org-msg- |
| d7e0 | 6d 6f 64 65 2d 6d 65 73 73 61 67 65 20 28 29 0a 20 20 22 53 65 74 75 70 20 74 68 65 20 61 64 76 | mode-message.()..."Setup.the.adv |
| d800 | 69 63 65 20 66 6f 72 20 6d 65 73 73 61 67 65 20 6d 61 69 6c 20 75 73 65 72 20 61 67 65 6e 74 2e | ice.for.message.mail.user.agent. |
| d820 | 22 0a 20 20 28 69 66 20 6f 72 67 2d 6d 73 67 2d 6d 6f 64 65 0a 20 20 20 20 20 20 28 61 64 76 69 | "...(if.org-msg-mode.......(advi |
| d840 | 63 65 2d 61 64 64 20 27 6d 65 73 73 61 67 65 2d 6d 61 69 6c 20 3a 61 66 74 65 72 20 23 27 6f 72 | ce-add.'message-mail.:after.#'or |
| d860 | 67 2d 6d 73 67 2d 70 6f 73 74 2d 73 65 74 75 70 29 0a 20 20 20 20 28 61 64 76 69 63 65 2d 72 65 | g-msg-post-setup).....(advice-re |
| d880 | 6d 6f 76 65 20 27 6d 65 73 73 61 67 65 2d 6d 61 69 6c 20 23 27 6f 72 67 2d 6d 73 67 2d 70 6f 73 | move.'message-mail.#'org-msg-pos |
| d8a0 | 74 2d 73 65 74 75 70 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6d 73 67 2d 69 6e 68 69 62 | t-setup)))..(defun.org-msg-inhib |
| d8c0 | 69 74 65 64 20 28 6f 72 69 67 2d 66 75 6e 20 26 72 65 73 74 20 61 72 67 73 29 0a 20 20 22 43 61 | ited.(orig-fun.&rest.args)..."Ca |
| d8e0 | 6c 6c 20 4f 52 49 47 2d 46 55 4e 20 77 69 74 68 20 4f 72 67 4d 73 67 20 6d 6f 64 65 20 64 69 73 | ll.ORIG-FUN.with.OrgMsg.mode.dis |
| d900 | 61 62 6c 65 64 2e 22 0a 20 20 28 6c 65 74 20 28 28 65 6e 61 62 6c 65 20 6f 72 67 2d 6d 73 67 2d | abled."...(let.((enable.org-msg- |
| d920 | 6d 6f 64 65 29 29 0a 20 20 20 20 28 77 68 65 6e 20 65 6e 61 62 6c 65 0a 20 20 20 20 20 20 28 6f | mode)).....(when.enable.......(o |
| d940 | 72 67 2d 6d 73 67 2d 6d 6f 64 65 20 30 29 29 0a 20 20 20 20 28 70 72 6f 67 31 0a 20 20 20 20 20 | rg-msg-mode.0)).....(prog1...... |
| d960 | 20 20 20 28 61 70 70 6c 79 20 6f 72 69 67 2d 66 75 6e 20 61 72 67 73 29 0a 20 20 20 20 20 20 28 | ...(apply.orig-fun.args).......( |
| d980 | 77 68 65 6e 20 65 6e 61 62 6c 65 0a 20 20 20 20 20 20 20 20 28 6f 72 67 2d 6d 73 67 2d 6d 6f 64 | when.enable.........(org-msg-mod |
| d9a0 | 65 20 31 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6d 73 67 2d 6d 6f 64 65 2d 67 6e | e.1)))))..(defun.org-msg-mode-gn |
| d9c0 | 75 73 20 28 29 0a 20 20 22 53 65 74 75 70 20 74 68 65 20 68 6f 6f 6b 20 66 6f 72 20 67 6e 75 73 | us.()..."Setup.the.hook.for.gnus |
| d9e0 | 20 6d 61 69 6c 20 75 73 65 72 20 61 67 65 6e 74 2e 22 0a 20 20 28 69 66 20 6f 72 67 2d 6d 73 67 | .mail.user.agent."...(if.org-msg |
| da00 | 2d 6d 6f 64 65 0a 20 20 20 20 20 20 28 70 72 6f 67 6e 0a 09 28 61 64 64 2d 68 6f 6f 6b 20 27 67 | -mode.......(progn..(add-hook.'g |
| da20 | 6e 75 73 2d 6d 65 73 73 61 67 65 2d 73 65 74 75 70 2d 68 6f 6f 6b 20 27 6f 72 67 2d 6d 73 67 2d | nus-message-setup-hook.'org-msg- |
| da40 | 70 6f 73 74 2d 73 65 74 75 70 29 0a 09 28 61 64 64 2d 68 6f 6f 6b 20 27 67 6e 75 73 2d 6d 65 73 | post-setup)..(add-hook.'gnus-mes |
| da60 | 73 61 67 65 2d 73 65 74 75 70 2d 68 6f 6f 6b 20 27 6f 72 67 2d 6d 73 67 2d 73 74 6f 72 65 2d 6d | sage-setup-hook.'org-msg-store-m |
| da80 | 6d 6c 2d 62 75 66 66 65 72 73 29 0a 09 28 61 64 76 69 63 65 2d 61 64 64 20 27 67 6e 75 73 2d 69 | ml-buffers)..(advice-add.'gnus-i |
| daa0 | 63 61 6c 65 6e 64 61 72 2d 73 65 6e 64 2d 62 75 66 66 65 72 2d 62 79 2d 6d 61 69 6c 0a 09 09 20 | calendar-send-buffer-by-mail.... |
| dac0 | 20 20 20 3a 61 72 6f 75 6e 64 20 23 27 6f 72 67 2d 6d 73 67 2d 69 6e 68 69 62 69 74 65 64 29 29 | ...:around.#'org-msg-inhibited)) |
| dae0 | 0a 20 20 20 20 28 72 65 6d 6f 76 65 2d 68 6f 6f 6b 20 27 67 6e 75 73 2d 6d 65 73 73 61 67 65 2d | .....(remove-hook.'gnus-message- |
| db00 | 73 65 74 75 70 2d 68 6f 6f 6b 20 27 6f 72 67 2d 6d 73 67 2d 70 6f 73 74 2d 73 65 74 75 70 29 0a | setup-hook.'org-msg-post-setup). |
| db20 | 20 20 20 20 28 72 65 6d 6f 76 65 2d 68 6f 6f 6b 20 27 67 6e 75 73 2d 6d 65 73 73 61 67 65 2d 73 | ....(remove-hook.'gnus-message-s |
| db40 | 65 74 75 70 2d 68 6f 6f 6b 20 27 6f 72 67 2d 6d 73 67 2d 73 74 6f 72 65 2d 6d 6d 6c 2d 62 75 66 | etup-hook.'org-msg-store-mml-buf |
| db60 | 66 65 72 73 29 0a 20 20 20 20 28 61 64 76 69 63 65 2d 72 65 6d 6f 76 65 20 27 67 6e 75 73 2d 69 | fers).....(advice-remove.'gnus-i |
| db80 | 63 61 6c 65 6e 64 61 72 2d 73 65 6e 64 2d 62 75 66 66 65 72 2d 62 79 2d 6d 61 69 6c 20 27 6f 72 | calendar-send-buffer-by-mail.'or |
| dba0 | 67 2d 6d 73 67 2d 69 6e 68 69 62 69 74 65 64 29 29 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6d | g-msg-inhibited)))..(defun.org-m |
| dbc0 | 73 67 2d 6d 6f 64 65 2d 6d 75 34 65 20 28 29 0a 20 20 22 53 65 74 75 70 20 74 68 65 20 68 6f 6f | sg-mode-mu4e.()..."Setup.the.hoo |
| dbe0 | 6b 20 66 6f 72 20 6d 75 34 65 20 6d 61 69 6c 20 75 73 65 72 20 61 67 65 6e 74 2e 22 0a 20 20 28 | k.for.mu4e.mail.user.agent."...( |
| dc00 | 69 66 20 6f 72 67 2d 6d 73 67 2d 6d 6f 64 65 0a 20 20 20 20 20 20 28 70 72 6f 67 6e 20 28 61 64 | if.org-msg-mode.......(progn.(ad |
| dc20 | 64 2d 68 6f 6f 6b 20 27 6d 75 34 65 2d 63 6f 6d 70 6f 73 65 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 27 | d-hook.'mu4e-compose-mode-hook.' |
| dc40 | 6f 72 67 2d 6d 73 67 2d 70 6f 73 74 2d 73 65 74 75 70 29 0a 09 20 20 20 20 20 28 61 64 76 69 63 | org-msg-post-setup).......(advic |
| dc60 | 65 2d 61 64 64 20 27 6d 75 34 65 2d 69 63 61 6c 65 6e 64 61 72 2d 72 65 70 6c 79 0a 09 09 09 20 | e-add.'mu4e-icalendar-reply..... |
| dc80 | 3a 61 72 6f 75 6e 64 20 23 27 6f 72 67 2d 6d 73 67 2d 69 6e 68 69 62 69 74 65 64 29 29 0a 20 20 | :around.#'org-msg-inhibited))... |
| dca0 | 20 20 28 72 65 6d 6f 76 65 2d 68 6f 6f 6b 20 27 6d 75 34 65 2d 63 6f 6d 70 6f 73 65 2d 6d 6f 64 | ..(remove-hook.'mu4e-compose-mod |
| dcc0 | 65 2d 68 6f 6f 6b 20 27 6f 72 67 2d 6d 73 67 2d 70 6f 73 74 2d 73 65 74 75 70 29 0a 20 20 20 20 | e-hook.'org-msg-post-setup)..... |
| dce0 | 28 61 64 76 69 63 65 2d 72 65 6d 6f 76 65 20 27 6d 75 34 65 2d 69 63 61 6c 65 6e 64 61 72 2d 72 | (advice-remove.'mu4e-icalendar-r |
| dd00 | 65 70 6c 79 20 27 6f 72 67 2d 6d 73 67 2d 69 6e 68 69 62 69 74 65 64 29 29 29 0a 0a 28 64 65 66 | eply.'org-msg-inhibited)))..(def |
| dd20 | 75 6e 20 6f 72 67 2d 6d 73 67 2d 6d 6f 64 65 2d 6e 6f 74 6d 75 63 68 20 28 29 0a 20 20 22 53 65 | un.org-msg-mode-notmuch.()..."Se |
| dd40 | 74 75 70 20 74 68 65 20 68 6f 6f 6b 20 66 6f 72 20 6e 6f 74 6d 75 63 68 20 6d 61 69 6c 20 75 73 | tup.the.hook.for.notmuch.mail.us |
| dd60 | 65 72 20 61 67 65 6e 74 2e 22 0a 20 20 28 69 66 20 6f 72 67 2d 6d 73 67 2d 6d 6f 64 65 0a 20 20 | er.agent."...(if.org-msg-mode... |
| dd80 | 20 20 20 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 28 61 64 76 69 63 65 2d 61 64 64 20 27 | ....(progn.........(advice-add.' |
| dda0 | 6e 6f 74 6d 75 63 68 2d 6d 75 61 2d 72 65 70 6c 79 20 3a 61 66 74 65 72 20 27 6f 72 67 2d 6d 73 | notmuch-mua-reply.:after.'org-ms |
| ddc0 | 67 2d 70 6f 73 74 2d 73 65 74 75 70 29 0a 20 20 20 20 20 20 20 20 28 61 64 76 69 63 65 2d 61 64 | g-post-setup).........(advice-ad |
| dde0 | 64 20 27 6e 6f 74 6d 75 63 68 2d 6d 75 61 2d 6d 61 69 6c 20 3a 61 66 74 65 72 20 27 6f 72 67 2d | d.'notmuch-mua-mail.:after.'org- |
| de00 | 6d 73 67 2d 70 6f 73 74 2d 73 65 74 75 70 2d 2d 69 66 2d 6e 6f 74 2d 72 65 70 6c 79 29 29 0a 20 | msg-post-setup--if-not-reply)).. |
| de20 | 20 20 20 28 61 64 76 69 63 65 2d 72 65 6d 6f 76 65 20 27 6e 6f 74 6d 75 63 68 2d 6d 75 61 2d 72 | ...(advice-remove.'notmuch-mua-r |
| de40 | 65 70 6c 79 20 27 6f 72 67 2d 6d 73 67 2d 70 6f 73 74 2d 73 65 74 75 70 29 0a 20 20 20 20 28 61 | eply.'org-msg-post-setup).....(a |
| de60 | 64 76 69 63 65 2d 72 65 6d 6f 76 65 20 27 6e 6f 74 6d 75 63 68 2d 6d 75 61 2d 6d 61 69 6c 20 27 | dvice-remove.'notmuch-mua-mail.' |
| de80 | 6f 72 67 2d 6d 73 67 2d 70 6f 73 74 2d 73 65 74 75 70 2d 2d 69 66 2d 6e 6f 74 2d 72 65 70 6c 79 | org-msg-post-setup--if-not-reply |
| dea0 | 29 29 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 69 6e 65 2d 6d 69 6e 6f | )))..;;;###autoload.(define-mino |
| dec0 | 72 2d 6d 6f 64 65 20 6f 72 67 2d 6d 73 67 2d 6d 6f 64 65 0a 20 20 22 54 6f 67 67 6c 65 20 4f 72 | r-mode.org-msg-mode..."Toggle.Or |
| dee0 | 67 4d 73 67 20 6d 6f 64 65 2e 0a 57 69 74 68 20 61 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e | gMsg.mode..With.a.prefix.argumen |
| df00 | 74 20 41 52 47 2c 20 65 6e 61 62 6c 65 20 44 65 6c 65 74 65 20 53 65 6c 65 63 74 69 6f 6e 20 6d | t.ARG,.enable.Delete.Selection.m |
| df20 | 6f 64 65 20 69 66 20 41 52 47 0a 69 73 20 70 6f 73 69 74 69 76 65 2c 20 61 6e 64 20 64 69 73 61 | ode.if.ARG.is.positive,.and.disa |
| df40 | 62 6c 65 20 69 74 20 6f 74 68 65 72 77 69 73 65 2e 20 20 49 66 20 63 61 6c 6c 65 64 20 66 72 6f | ble.it.otherwise...If.called.fro |
| df60 | 6d 20 4c 69 73 70 2c 0a 65 6e 61 62 6c 65 20 74 68 65 20 6d 6f 64 65 20 69 66 20 41 52 47 20 69 | m.Lisp,.enable.the.mode.if.ARG.i |
| df80 | 73 20 6f 6d 69 74 74 65 64 20 6f 72 20 6e 69 6c 2e 0a 0a 57 68 65 6e 20 4f 72 67 4d 73 67 20 6d | s.omitted.or.nil...When.OrgMsg.m |
| dfa0 | 6f 64 65 20 69 73 20 65 6e 61 62 6c 65 64 2c 20 74 68 65 20 4d 65 73 73 61 67 65 20 6d 6f 64 65 | ode.is.enabled,.the.Message.mode |
| dfc0 | 20 62 65 68 61 76 69 6f 72 20 69 73 0a 6d 6f 64 69 66 69 65 64 20 74 6f 20 6d 61 6b 65 20 75 73 | .behavior.is.modified.to.make.us |
| dfe0 | 65 20 6f 66 20 4f 72 67 20 4d 6f 64 65 20 66 6f 72 20 6d 61 69 6c 20 63 6f 6d 70 6f 73 69 74 69 | e.of.Org.Mode.for.mail.compositi |
| e000 | 6f 6e 20 61 6e 64 20 62 75 69 6c 64 0a 48 54 4d 4c 20 65 6d 61 69 6c 73 2e 22 0a 20 20 3a 67 6c | on.and.build.HTML.emails."...:gl |
| e020 | 6f 62 61 6c 20 74 0a 20 20 28 6f 72 67 2d 6d 73 67 2d 6d 75 61 2d 63 61 6c 6c 20 27 6d 6f 64 65 | obal.t...(org-msg-mua-call.'mode |
| e040 | 29 0a 20 20 28 69 66 20 6f 72 67 2d 6d 73 67 2d 6d 6f 64 65 0a 20 20 20 20 20 20 28 70 72 6f 67 | )...(if.org-msg-mode.......(prog |
| e060 | 6e 0a 09 28 70 75 74 20 27 6d 65 73 73 61 67 65 2d 73 65 6e 74 2d 68 6f 6f 6b 20 27 70 65 72 6d | n..(put.'message-sent-hook.'perm |
| e080 | 61 6e 65 6e 74 2d 6c 6f 63 61 6c 20 74 29 0a 09 28 70 75 74 20 27 6d 65 73 73 61 67 65 2d 65 78 | anent-local.t)..(put.'message-ex |
| e0a0 | 69 74 2d 61 63 74 69 6f 6e 73 20 27 70 65 72 6d 61 6e 65 6e 74 2d 6c 6f 63 61 6c 20 74 29 0a 09 | it-actions.'permanent-local.t).. |
| e0c0 | 28 61 64 64 2d 68 6f 6f 6b 20 27 6f 72 67 2d 63 74 72 6c 2d 63 2d 63 74 72 6c 2d 63 2d 66 69 6e | (add-hook.'org-ctrl-c-ctrl-c-fin |
| e0e0 | 61 6c 2d 68 6f 6f 6b 20 27 6f 72 67 2d 6d 73 67 2d 63 74 72 6c 2d 63 2d 63 74 72 6c 2d 63 29 0a | al-hook.'org-msg-ctrl-c-ctrl-c). |
| e100 | 09 28 61 64 64 2d 74 6f 2d 6c 69 73 74 20 27 6d 65 73 73 61 67 65 2d 73 79 6e 74 61 78 2d 63 68 | .(add-to-list.'message-syntax-ch |
| e120 | 65 63 6b 73 20 27 28 69 6e 76 69 73 69 62 6c 65 2d 74 65 78 74 20 2e 20 64 69 73 61 62 6c 65 64 | ecks.'(invisible-text...disabled |
| e140 | 29 29 0a 09 28 75 6e 6c 65 73 73 20 28 6f 72 67 2d 6d 73 67 2d 6d 6d 6c 2d 72 65 63 75 72 73 69 | ))..(unless.(org-msg-mml-recursi |
| e160 | 76 65 2d 73 75 70 70 6f 72 74 29 0a 09 20 20 28 61 64 76 69 63 65 2d 61 64 64 20 27 6d 6d 6c 2d | ve-support)....(advice-add.'mml- |
| e180 | 65 78 70 61 6e 64 2d 68 74 6d 6c 2d 69 6e 74 6f 2d 6d 75 6c 74 69 70 61 72 74 2d 72 65 6c 61 74 | expand-html-into-multipart-relat |
| e1a0 | 65 64 0a 09 09 20 20 20 20 20 20 3a 61 72 6f 75 6e 64 20 23 27 6f 72 67 2d 6d 73 67 2d 6d 6d 6c | ed.........:around.#'org-msg-mml |
| e1c0 | 2d 69 6e 74 6f 2d 6d 75 6c 74 69 70 61 72 74 2d 72 65 6c 61 74 65 64 29 29 0a 09 28 61 64 76 69 | -into-multipart-related))..(advi |
| e1e0 | 63 65 2d 61 64 64 20 27 67 6e 75 73 2d 64 69 72 65 64 2d 61 74 74 61 63 68 20 3a 61 72 6f 75 6e | ce-add.'gnus-dired-attach.:aroun |
| e200 | 64 20 23 27 6f 72 67 2d 6d 73 67 2d 64 69 72 65 64 2d 61 74 74 61 63 68 29 0a 09 28 61 64 76 69 | d.#'org-msg-dired-attach)..(advi |
| e220 | 63 65 2d 61 64 64 20 27 6f 72 67 2d 68 74 6d 6c 2d 2d 74 6f 64 6f 20 3a 61 72 6f 75 6e 64 20 23 | ce-add.'org-html--todo.:around.# |
| e240 | 27 6f 72 67 2d 6d 73 67 2d 68 74 6d 6c 2d 2d 74 6f 64 6f 29 0a 09 28 77 68 65 6e 20 28 62 6f 75 | 'org-msg-html--todo)..(when.(bou |
| e260 | 6e 64 70 20 27 62 62 64 62 2d 6d 75 61 2d 6d 6f 64 65 2d 61 6c 69 73 74 29 0a 09 20 20 28 61 64 | ndp.'bbdb-mua-mode-alist)....(ad |
| e280 | 64 2d 74 6f 2d 6c 69 73 74 20 27 62 62 64 62 2d 6d 75 61 2d 6d 6f 64 65 2d 61 6c 69 73 74 20 27 | d-to-list.'bbdb-mua-mode-alist.' |
| e2a0 | 28 6d 65 73 73 61 67 65 20 6f 72 67 2d 6d 73 67 2d 65 64 69 74 2d 6d 6f 64 65 29 29 29 29 0a 20 | (message.org-msg-edit-mode)))).. |
| e2c0 | 20 20 20 28 70 75 74 20 27 6d 65 73 73 61 67 65 2d 73 65 6e 74 2d 68 6f 6f 6b 20 27 70 65 72 6d | ...(put.'message-sent-hook.'perm |
| e2e0 | 61 6e 65 6e 74 2d 6c 6f 63 61 6c 20 6e 69 6c 29 0a 20 20 20 20 28 70 75 74 20 27 6d 65 73 73 61 | anent-local.nil).....(put.'messa |
| e300 | 67 65 2d 65 78 69 74 2d 61 63 74 69 6f 6e 73 20 27 70 65 72 6d 61 6e 65 6e 74 2d 6c 6f 63 61 6c | ge-exit-actions.'permanent-local |
| e320 | 20 6e 69 6c 29 0a 20 20 20 20 28 72 65 6d 6f 76 65 2d 68 6f 6f 6b 20 27 6f 72 67 2d 63 74 72 6c | .nil).....(remove-hook.'org-ctrl |
| e340 | 2d 63 2d 63 74 72 6c 2d 63 2d 66 69 6e 61 6c 2d 68 6f 6f 6b 20 27 6f 72 67 2d 6d 73 67 2d 63 74 | -c-ctrl-c-final-hook.'org-msg-ct |
| e360 | 72 6c 2d 63 2d 63 74 72 6c 2d 63 29 0a 20 20 20 20 28 73 65 74 71 20 6d 65 73 73 61 67 65 2d 73 | rl-c-ctrl-c).....(setq.message-s |
| e380 | 79 6e 74 61 78 2d 63 68 65 63 6b 73 20 28 64 65 6c 65 74 65 20 27 28 69 6e 76 69 73 69 62 6c 65 | yntax-checks.(delete.'(invisible |
| e3a0 | 2d 74 65 78 74 20 2e 20 64 69 73 61 62 6c 65 64 29 0a 09 09 09 09 09 6d 65 73 73 61 67 65 2d 73 | -text...disabled)......message-s |
| e3c0 | 79 6e 74 61 78 2d 63 68 65 63 6b 73 29 29 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 28 6f 72 67 2d | yntax-checks)).....(unless.(org- |
| e3e0 | 6d 73 67 2d 6d 6d 6c 2d 72 65 63 75 72 73 69 76 65 2d 73 75 70 70 6f 72 74 29 0a 20 20 20 20 20 | msg-mml-recursive-support)...... |
| e400 | 20 28 61 64 76 69 63 65 2d 72 65 6d 6f 76 65 20 27 6d 6d 6c 2d 65 78 70 61 6e 64 2d 68 74 6d 6c | .(advice-remove.'mml-expand-html |
| e420 | 2d 69 6e 74 6f 2d 6d 75 6c 74 69 70 61 72 74 2d 72 65 6c 61 74 65 64 0a 09 09 20 20 20 20 20 23 | -into-multipart-related........# |
| e440 | 27 6f 72 67 2d 6d 73 67 2d 6d 6d 6c 2d 69 6e 74 6f 2d 6d 75 6c 74 69 70 61 72 74 2d 72 65 6c 61 | 'org-msg-mml-into-multipart-rela |
| e460 | 74 65 64 29 29 0a 20 20 20 20 28 61 64 76 69 63 65 2d 72 65 6d 6f 76 65 20 27 67 6e 75 73 2d 64 | ted)).....(advice-remove.'gnus-d |
| e480 | 69 72 65 64 2d 61 74 74 61 63 68 20 23 27 6f 72 67 2d 6d 73 67 2d 64 69 72 65 64 2d 61 74 74 61 | ired-attach.#'org-msg-dired-atta |
| e4a0 | 63 68 29 0a 20 20 20 20 28 61 64 76 69 63 65 2d 72 65 6d 6f 76 65 20 27 6f 72 67 2d 68 74 6d 6c | ch).....(advice-remove.'org-html |
| e4c0 | 2d 2d 74 6f 64 6f 20 23 27 6f 72 67 2d 6d 73 67 2d 68 74 6d 6c 2d 2d 74 6f 64 6f 29 0a 20 20 20 | --todo.#'org-msg-html--todo).... |
| e4e0 | 20 28 77 68 65 6e 20 28 62 6f 75 6e 64 70 20 27 62 62 64 62 2d 6d 75 61 2d 6d 6f 64 65 2d 61 6c | .(when.(boundp.'bbdb-mua-mode-al |
| e500 | 69 73 74 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 62 62 64 62 2d 6d 75 61 2d 6d 6f 64 65 2d 61 | ist).......(setq.bbdb-mua-mode-a |
| e520 | 6c 69 73 74 20 28 64 65 6c 65 74 65 20 27 28 6d 65 73 73 61 67 65 20 6f 72 67 2d 6d 73 67 2d 65 | list.(delete.'(message.org-msg-e |
| e540 | 64 69 74 2d 6d 6f 64 65 29 0a 09 09 09 09 09 62 62 64 62 2d 6d 75 61 2d 6d 6f 64 65 2d 61 6c 69 | dit-mode)......bbdb-mua-mode-ali |
| e560 | 73 74 29 29 29 29 29 0a 0a 28 64 65 66 76 61 72 20 6f 72 67 2d 6d 73 67 2d 66 6f 6e 74 2d 6c 6f | st)))))..(defvar.org-msg-font-lo |
| e580 | 63 6b 2d 6b 65 79 77 6f 72 64 73 0a 20 20 28 6c 65 74 20 28 28 63 6f 6e 74 65 6e 74 20 22 5b 20 | ck-keywords...(let.((content."[. |
| e5a0 | 5c 74 5d 2a 5c 5c 28 2e 2b 5c 5c 28 5c 6e 5b 20 5c 74 5d 2e 2a 5c 5c 29 2a 5c 5c 29 5c 6e 3f 22 | \t]*\\(.+\\(\n[.\t].*\\)*\\)\n?" |
| e5c0 | 29 29 0a 20 20 20 20 60 28 28 2c 28 6f 72 67 2d 6d 73 67 2d 66 6f 6e 74 2d 6c 6f 63 6b 2d 6d 61 | )).....`((,(org-msg-font-lock-ma |
| e5e0 | 6b 65 2d 68 65 61 64 65 72 2d 6d 61 74 63 68 65 72 0a 09 20 28 63 6f 6e 63 61 74 20 22 5e 5c 5c | ke-header-matcher...(concat."^\\ |
| e600 | 28 5b 54 74 5d 6f 3a 5c 5c 29 22 20 63 6f 6e 74 65 6e 74 29 29 0a 20 20 20 20 20 20 20 28 31 20 | ([Tt]o:\\)".content))........(1. |
| e620 | 27 6d 65 73 73 61 67 65 2d 68 65 61 64 65 72 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 28 32 20 | 'message-header-name)........(2. |
| e640 | 27 6d 65 73 73 61 67 65 2d 68 65 61 64 65 72 2d 74 6f 20 6e 69 6c 20 74 29 29 0a 20 20 20 20 20 | 'message-header-to.nil.t))...... |
| e660 | 20 28 2c 28 6f 72 67 2d 6d 73 67 2d 66 6f 6e 74 2d 6c 6f 63 6b 2d 6d 61 6b 65 2d 68 65 61 64 65 | .(,(org-msg-font-lock-make-heade |
| e680 | 72 2d 6d 61 74 63 68 65 72 0a 09 20 28 63 6f 6e 63 61 74 20 22 5e 5c 5c 28 5e 5b 47 42 46 5d 3f | r-matcher...(concat."^\\(^[GBF]? |
| e6a0 | 5b 43 63 5d 5b 43 63 5d 3a 5c 5c 7c 5e 5b 52 72 5d 65 70 6c 79 2d 5b 54 74 5d 6f 3a 5c 5c 29 22 | [Cc][Cc]:\\|^[Rr]eply-[Tt]o:\\)" |
| e6c0 | 20 63 6f 6e 74 65 6e 74 29 29 0a 20 20 20 20 20 20 20 28 31 20 27 6d 65 73 73 61 67 65 2d 68 65 | .content))........(1.'message-he |
| e6e0 | 61 64 65 72 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 28 32 20 27 6d 65 73 73 61 67 65 2d 68 65 | ader-name)........(2.'message-he |
| e700 | 61 64 65 72 2d 63 63 20 6e 69 6c 20 74 29 29 0a 20 20 20 20 20 20 28 2c 28 6f 72 67 2d 6d 73 67 | ader-cc.nil.t)).......(,(org-msg |
| e720 | 2d 66 6f 6e 74 2d 6c 6f 63 6b 2d 6d 61 6b 65 2d 68 65 61 64 65 72 2d 6d 61 74 63 68 65 72 0a 09 | -font-lock-make-header-matcher.. |
| e740 | 20 28 63 6f 6e 63 61 74 20 22 5e 5c 5c 28 5b 53 73 5d 75 62 6a 65 63 74 3a 5c 5c 29 22 20 63 6f | .(concat."^\\([Ss]ubject:\\)".co |
| e760 | 6e 74 65 6e 74 29 29 0a 20 20 20 20 20 20 20 28 31 20 27 6d 65 73 73 61 67 65 2d 68 65 61 64 65 | ntent))........(1.'message-heade |
| e780 | 72 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 28 32 20 27 6d 65 73 73 61 67 65 2d 68 65 61 64 65 | r-name)........(2.'message-heade |
| e7a0 | 72 2d 73 75 62 6a 65 63 74 20 6e 69 6c 20 74 29 29 0a 20 20 20 20 20 20 28 2c 28 6f 72 67 2d 6d | r-subject.nil.t)).......(,(org-m |
| e7c0 | 73 67 2d 66 6f 6e 74 2d 6c 6f 63 6b 2d 6d 61 6b 65 2d 68 65 61 64 65 72 2d 6d 61 74 63 68 65 72 | sg-font-lock-make-header-matcher |
| e7e0 | 0a 09 20 28 63 6f 6e 63 61 74 20 22 5e 5c 5c 28 5b 41 2d 5a 5d 5b 5e 3a 20 5c 6e 5c 74 5d 2b 3a | ...(concat."^\\([A-Z][^:.\n\t]+: |
| e800 | 5c 5c 29 22 20 63 6f 6e 74 65 6e 74 29 29 0a 20 20 20 20 20 20 20 28 31 20 27 6d 65 73 73 61 67 | \\)".content))........(1.'messag |
| e820 | 65 2d 68 65 61 64 65 72 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 28 32 20 27 6d 65 73 73 61 67 | e-header-name)........(2.'messag |
| e840 | 65 2d 68 65 61 64 65 72 2d 6f 74 68 65 72 20 6e 69 6c 20 74 29 29 0a 20 20 20 20 20 20 2c 40 28 | e-header-other.nil.t)).......,@( |
| e860 | 69 66 20 28 61 6e 64 20 6f 72 67 2d 6d 73 67 2d 73 65 70 61 72 61 74 6f 72 0a 09 09 20 28 6e 6f | if.(and.org-msg-separator....(no |
| e880 | 74 20 28 65 71 75 61 6c 20 6f 72 67 2d 6d 73 67 2d 73 65 70 61 72 61 74 6f 72 20 22 22 29 29 29 | t.(equal.org-msg-separator.""))) |
| e8a0 | 0a 09 20 20 20 20 60 28 28 2c 28 63 6f 6e 63 61 74 20 22 5e 5c 5c 28 22 20 28 72 65 67 65 78 70 | ......`((,(concat."^\\(".(regexp |
| e8c0 | 2d 71 75 6f 74 65 20 6f 72 67 2d 6d 73 67 2d 73 65 70 61 72 61 74 6f 72 29 20 22 5c 5c 29 24 22 | -quote.org-msg-separator)."\\)$" |
| e8e0 | 29 0a 09 20 20 20 20 20 20 20 31 20 27 6d 65 73 73 61 67 65 2d 73 65 70 61 72 61 74 6f 72 29 29 | ).........1.'message-separator)) |
| e900 | 0a 09 20 20 6e 69 6c 29 29 29 0a 20 20 22 41 64 64 69 74 69 6f 6e 61 6c 20 65 78 70 72 65 73 73 | ....nil)))..."Additional.express |
| e920 | 69 6f 6e 73 20 74 6f 20 68 69 67 68 6c 69 67 68 74 20 69 6e 20 4f 72 67 4d 73 67 20 6d 6f 64 65 | ions.to.highlight.in.OrgMsg.mode |
| e940 | 2e 22 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6d 73 67 2d 2d 6d 75 34 65 2d 66 75 6e 20 28 6e | .")..(defun.org-msg--mu4e-fun.(n |
| e960 | 61 6d 65 29 0a 20 20 22 41 74 74 65 6d 70 74 20 74 6f 20 66 69 6e 64 20 74 68 65 20 65 78 69 73 | ame)..."Attempt.to.find.the.exis |
| e980 | 74 69 6e 67 20 6d 75 34 65 20 66 75 6e 63 74 69 6f 6e 20 73 75 66 66 69 78 65 64 20 77 69 74 68 | ting.mu4e.function.suffixed.with |
| e9a0 | 20 4e 41 4d 45 2e 22 0a 20 20 28 6c 65 74 20 28 28 66 75 6e 73 20 28 6d 61 70 63 61 72 20 28 6c | .NAME."...(let.((funs.(mapcar.(l |
| e9c0 | 61 6d 62 64 61 20 28 70 72 65 66 69 78 29 20 28 69 6e 74 65 72 6e 20 28 63 6f 6e 63 61 74 20 70 | ambda.(prefix).(intern.(concat.p |
| e9e0 | 72 65 66 69 78 20 6e 61 6d 65 29 29 29 0a 09 09 20 20 20 20 20 20 27 28 22 6d 75 34 65 7e 22 20 | refix.name))).........'("mu4e~". |
| ea00 | 22 6d 75 34 65 2d 22 20 22 6d 75 34 65 2d 2d 22 29 29 29 29 0a 20 20 20 20 28 63 61 72 20 28 63 | "mu4e-"."mu4e--")))).....(car.(c |
| ea20 | 6c 2d 6d 65 6d 62 65 72 2d 69 66 20 23 27 66 62 6f 75 6e 64 70 20 66 75 6e 73 29 29 29 29 0a 0a | l-member-if.#'fboundp.funs)))).. |
| ea40 | 28 64 65 66 75 6e 20 6f 72 67 2d 6d 73 67 2d 2d 6d 75 34 65 2d 66 75 6e 2d 63 61 6c 6c 20 28 6e | (defun.org-msg--mu4e-fun-call.(n |
| ea60 | 61 6d 65 29 0a 20 20 22 43 61 6c 6c 20 74 68 65 20 6d 75 34 65 20 66 75 6e 63 74 69 6f 6e 20 73 | ame)..."Call.the.mu4e.function.s |
| ea80 | 75 66 66 69 78 65 64 20 77 69 74 68 20 4e 41 4d 45 20 69 66 20 61 6e 79 2e 22 0a 20 20 28 77 68 | uffixed.with.NAME.if.any."...(wh |
| eaa0 | 65 6e 2d 6c 65 74 20 28 28 66 75 6e 20 28 6f 72 67 2d 6d 73 67 2d 2d 6d 75 34 65 2d 66 75 6e 20 | en-let.((fun.(org-msg--mu4e-fun. |
| eac0 | 6e 61 6d 65 29 29 29 0a 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 66 75 6e 29 29 29 0a 0a 28 64 65 | name))).....(funcall.fun)))..(de |
| eae0 | 66 75 6e 20 6f 72 67 2d 6d 73 67 2d 65 64 69 74 2d 6d 6f 64 65 2d 6d 75 34 65 20 28 29 0a 20 20 | fun.org-msg-edit-mode-mu4e.()... |
| eb00 | 22 53 65 74 75 70 20 6d 75 34 65 20 66 61 63 65 73 2c 20 61 64 64 72 65 73 73 65 73 20 63 6f 6d | "Setup.mu4e.faces,.addresses.com |
| eb20 | 70 6c 65 74 69 6f 6e 20 61 6e 64 20 72 75 6e 20 6d 75 34 65 2e 22 0a 20 20 28 6f 72 67 2d 6d 73 | pletion.and.run.mu4e."...(org-ms |
| eb40 | 67 2d 2d 6d 75 34 65 2d 66 75 6e 2d 63 61 6c 6c 20 22 63 6f 6d 70 6f 73 65 2d 72 65 6d 61 70 2d | g--mu4e-fun-call."compose-remap- |
| eb60 | 66 61 63 65 73 22 29 0a 20 20 28 75 6e 6c 65 73 73 20 28 6d 75 34 65 2d 72 75 6e 6e 69 6e 67 2d | faces")...(unless.(mu4e-running- |
| eb80 | 70 29 0a 20 20 20 20 28 6f 72 67 2d 6d 73 67 2d 2d 6d 75 34 65 2d 66 75 6e 2d 63 61 6c 6c 20 22 | p).....(org-msg--mu4e-fun-call." |
| eba0 | 73 74 61 72 74 22 29 29 0a 20 20 28 77 68 65 6e 20 6d 75 34 65 2d 63 6f 6d 70 6f 73 65 2d 63 6f | start"))...(when.mu4e-compose-co |
| ebc0 | 6d 70 6c 65 74 65 2d 61 64 64 72 65 73 73 65 73 0a 20 20 20 20 28 6f 72 67 2d 6d 73 67 2d 2d 6d | mplete-addresses.....(org-msg--m |
| ebe0 | 75 34 65 2d 66 75 6e 2d 63 61 6c 6c 20 22 63 6f 6d 70 6f 73 65 2d 73 65 74 75 70 2d 63 6f 6d 70 | u4e-fun-call."compose-setup-comp |
| ec00 | 6c 65 74 69 6f 6e 22 29 29 0a 20 20 28 77 68 65 6e 2d 6c 65 74 20 28 28 73 65 6e 74 2d 68 6f 6f | letion"))...(when-let.((sent-hoo |
| ec20 | 6b 20 28 6f 72 67 2d 6d 73 67 2d 2d 6d 75 34 65 2d 66 75 6e 20 22 63 6f 6d 70 6f 73 65 2d 62 65 | k.(org-msg--mu4e-fun."compose-be |
| ec40 | 66 6f 72 65 2d 73 65 6e 64 22 29 29 29 0a 20 20 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 6d 65 73 | fore-send"))).....(add-hook.'mes |
| ec60 | 73 61 67 65 2d 73 65 6e 74 2d 68 6f 6f 6b 20 73 65 6e 74 2d 68 6f 6f 6b 20 6e 69 6c 20 74 29 29 | sage-sent-hook.sent-hook.nil.t)) |
| ec80 | 29 0a 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 72 67 2d 6d 73 67 2d 65 64 69 74 2d 6b 69 6c 6c 2d | )..(defalias.'org-msg-edit-kill- |
| eca0 | 62 75 66 66 65 72 2d 6d 75 34 65 20 27 6d 75 34 65 2d 6d 65 73 73 61 67 65 2d 6b 69 6c 6c 2d 62 | buffer-mu4e.'mu4e-message-kill-b |
| ecc0 | 75 66 66 65 72 29 0a 0a 28 64 65 66 75 6e 20 6f 72 67 2d 6d 73 67 2d 65 64 69 74 2d 6b 69 6c 6c | uffer)..(defun.org-msg-edit-kill |
| ece0 | 2d 62 75 66 66 65 72 20 28 29 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6f 72 | -buffer.()...(interactive)...(or |
| ed00 | 67 2d 6d 73 67 2d 6d 75 61 2d 63 61 6c 6c 20 27 65 64 69 74 2d 6b 69 6c 6c 2d 62 75 66 66 65 72 | g-msg-mua-call.'edit-kill-buffer |
| ed20 | 20 27 6d 65 73 73 61 67 65 2d 6b 69 6c 6c 2d 62 75 66 66 65 72 29 29 0a 0a 28 64 65 66 75 6e 20 | .'message-kill-buffer))..(defun. |
| ed40 | 6f 72 67 2d 6d 73 67 2d 69 6e 73 65 72 74 2d 72 65 63 69 70 69 65 6e 74 2d 6d 61 69 6c 74 6f 28 | org-msg-insert-recipient-mailto( |
| ed60 | 29 0a 20 20 22 49 6e 73 65 72 74 20 61 20 6d 61 69 6c 74 6f 20 6c 69 6e 6b 20 74 6f 20 61 20 72 | )..."Insert.a.mailto.link.to.a.r |
| ed80 | 65 63 69 70 69 65 6e 74 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 | ecipient."...(interactive)...(le |
| eda0 | 74 2a 20 28 28 72 65 63 69 70 69 65 6e 74 73 20 28 6d 65 73 73 61 67 65 2d 61 6c 6c 2d 72 65 63 | t*.((recipients.(message-all-rec |
| edc0 | 69 70 69 65 6e 74 73 29 29 0a 09 20 28 6e 61 6d 65 20 28 63 6f 6d 70 6c 65 74 69 6e 67 2d 72 65 | ipients))...(name.(completing-re |
| ede0 | 61 64 20 22 52 65 63 69 70 69 65 6e 74 3a 20 22 20 72 65 63 69 70 69 65 6e 74 73 20 6e 69 6c 20 | ad."Recipient:.".recipients.nil. |
| ee00 | 74 29 29 0a 09 20 28 61 64 64 72 65 73 73 20 28 63 61 72 20 28 61 73 73 6f 63 2d 64 65 66 61 75 | t))...(address.(car.(assoc-defau |
| ee20 | 6c 74 20 6e 61 6d 65 20 72 65 63 69 70 69 65 6e 74 73 29 29 29 29 0a 20 20 20 20 28 6f 72 67 2d | lt.name.recipients)))).....(org- |
| ee40 | 69 6e 73 65 72 74 2d 6c 69 6e 6b 20 6e 69 6c 20 28 63 6f 6e 63 61 74 20 22 6d 61 69 6c 74 6f 3a | insert-link.nil.(concat."mailto: |
| ee60 | 22 20 61 64 64 72 65 73 73 29 20 28 63 6f 6e 63 61 74 20 22 40 22 20 6e 61 6d 65 29 29 29 29 0a | ".address).(concat."@".name)))). |
| ee80 | 0a 28 64 65 66 76 61 72 20 6f 72 67 2d 6d 73 67 2d 65 64 69 74 2d 6d 6f 64 65 2d 6d 61 70 0a 20 | .(defvar.org-msg-edit-mode-map.. |
| eea0 | 20 28 6c 65 74 20 28 28 6d 61 70 20 28 6d 61 6b 65 2d 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 29 | .(let.((map.(make-sparse-keymap) |
| eec0 | 29 29 0a 20 20 20 20 28 73 65 74 2d 6b 65 79 6d 61 70 2d 70 61 72 65 6e 74 20 6d 61 70 20 6f 72 | )).....(set-keymap-parent.map.or |
| eee0 | 67 2d 6d 6f 64 65 2d 6d 61 70 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 | g-mode-map).....(define-key.map. |
| ef00 | 28 6b 62 64 20 22 3c 74 61 62 3e 22 29 20 27 6f 72 67 2d 6d 73 67 2d 74 61 62 29 0a 20 20 20 20 | (kbd."<tab>").'org-msg-tab)..... |
| ef20 | 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 5b 72 65 6d 61 70 20 6f 72 67 2d 65 78 70 6f 72 | (define-key.map.[remap.org-expor |
| ef40 | 74 2d 64 69 73 70 61 74 63 68 5d 20 27 6f 72 67 2d 6d 73 67 2d 70 72 65 76 69 65 77 29 0a 20 20 | t-dispatch].'org-msg-preview)... |
| ef60 | 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 28 6b 62 64 20 22 43 2d 63 20 43 2d 6b 22 | ..(define-key.map.(kbd."C-c.C-k" |
| ef80 | 29 20 27 6f 72 67 2d 6d 73 67 2d 65 64 69 74 2d 6b 69 6c 6c 2d 62 75 66 66 65 72 29 0a 20 20 20 | ).'org-msg-edit-kill-buffer).... |
| efa0 | 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 28 6b 62 64 20 22 43 2d 63 20 43 2d 73 22 29 | .(define-key.map.(kbd."C-c.C-s") |
| efc0 | 20 27 6d 65 73 73 61 67 65 2d 67 6f 74 6f 2d 73 75 62 6a 65 63 74 29 0a 20 20 20 20 28 64 65 66 | .'message-goto-subject).....(def |
| efe0 | 69 6e 65 2d 6b 65 79 20 6d 61 70 20 28 6b 62 64 20 22 43 2d 63 20 43 2d 62 22 29 20 27 6f 72 67 | ine-key.map.(kbd."C-c.C-b").'org |
| f000 | 2d 6d 73 67 2d 67 6f 74 6f 2d 62 6f 64 79 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 | -msg-goto-body).....(define-key. |
| f020 | 6d 61 70 20 28 6b 62 64 20 22 43 2d 63 20 40 22 29 20 27 6f 72 67 2d 6d 73 67 2d 69 6e 73 65 72 | map.(kbd."C-c.@").'org-msg-inser |
| f040 | 74 2d 72 65 63 69 70 69 65 6e 74 2d 6d 61 69 6c 74 6f 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d | t-recipient-mailto).....(define- |
| f060 | 6b 65 79 20 6d 61 70 20 5b 72 65 6d 61 70 20 6f 72 67 2d 61 74 74 61 63 68 5d 20 27 6f 72 67 2d | key.map.[remap.org-attach].'org- |
| f080 | 6d 73 67 2d 61 74 74 61 63 68 29 0a 20 20 20 20 6d 61 70 29 0a 20 20 22 4b 65 79 6d 61 70 20 66 | msg-attach).....map)..."Keymap.f |
| f0a0 | 6f 72 20 60 6f 72 67 2d 6d 73 67 2d 65 64 69 74 2d 6d 6f 64 65 27 2e 22 29 0a 0a 28 64 65 66 69 | or.`org-msg-edit-mode'.")..(defi |
| f0c0 | 6e 65 2d 64 65 72 69 76 65 64 2d 6d 6f 64 65 20 6f 72 67 2d 6d 73 67 2d 65 64 69 74 2d 6d 6f 64 | ne-derived-mode.org-msg-edit-mod |
| f0e0 | 65 20 6f 72 67 2d 6d 6f 64 65 20 22 4f 72 67 4d 73 67 22 0a 20 20 22 4d 61 6a 6f 72 20 6d 6f 64 | e.org-mode."OrgMsg"..."Major.mod |
| f100 | 65 20 74 6f 20 63 6f 6d 70 6f 73 65 20 65 6d 61 69 6c 20 75 73 69 6e 67 20 4f 72 67 20 6d 6f 64 | e.to.compose.email.using.Org.mod |
| f120 | 65 2e 0a 4c 69 6b 65 20 4f 72 67 20 4d 6f 64 65 20 62 75 74 20 77 69 74 68 20 74 68 65 73 65 20 | e..Like.Org.Mode.but.with.these. |
| f140 | 61 64 64 69 74 69 6f 6e 61 6c 2f 63 68 61 6e 67 65 64 20 63 6f 6d 6d 61 6e 64 73 3a 0a 54 79 70 | additional/changed.commands:.Typ |
| f160 | 65 20 5c 5c 5b 6f 72 67 2d 63 74 72 6c 2d 63 2d 63 74 72 6c 2d 63 5d 20 74 6f 20 73 65 6e 64 20 | e.\\[org-ctrl-c-ctrl-c].to.send. |
| f180 | 74 68 65 20 6d 65 73 73 61 67 65 20 69 66 20 74 68 65 20 63 75 72 73 6f 72 20 69 73 0a 20 20 6e | the.message.if.the.cursor.is...n |
| f1a0 | 6f 74 20 61 20 43 2d 63 20 43 2d 63 20 4f 72 67 20 6d 6f 64 65 20 63 6f 6e 74 72 6f 6c 6c 65 64 | ot.a.C-c.C-c.Org.mode.controlled |
| f1c0 | 20 72 65 67 69 6f 6e 20 28 4f 72 67 20 62 61 62 65 6c 20 66 6f 72 0a 20 20 65 78 61 6d 70 6c 65 | .region.(Org.babel.for...example |
| f1e0 | 29 2e 0a 54 79 70 65 20 5c 5c 5b 6f 72 67 2d 6d 73 67 2d 70 72 65 76 69 65 77 5d 20 74 6f 20 70 | )..Type.\\[org-msg-preview].to.p |
| f200 | 72 65 76 69 65 77 20 74 68 65 20 66 69 6e 61 6c 20 65 6d 61 69 6c 20 77 69 74 68 0a 20 20 60 62 | review.the.final.email.with...`b |
| f220 | 72 6f 77 73 65 2d 75 72 6c 27 2e 0a 54 79 70 65 20 5c 5c 5b 6d 65 73 73 61 67 65 2d 6b 69 6c 6c | rowse-url'..Type.\\[message-kill |
| f240 | 2d 62 75 66 66 65 72 5d 20 74 6f 20 6b 69 6c 6c 20 74 68 65 20 63 75 72 72 65 6e 74 20 4f 72 67 | -buffer].to.kill.the.current.Org |
| f260 | 4d 73 67 20 62 75 66 66 65 72 2e 0a 54 79 70 65 20 5c 5c 5b 6d 65 73 73 61 67 65 2d 67 6f 74 6f | Msg.buffer..Type.\\[message-goto |
| f280 | 2d 73 75 62 6a 65 63 74 5d 20 74 6f 20 6d 6f 76 65 20 74 68 65 20 70 6f 69 6e 74 20 74 6f 20 74 | -subject].to.move.the.point.to.t |
| f2a0 | 68 65 20 53 75 62 6a 65 63 74 0a 20 20 68 65 61 64 65 72 2e 0a 54 79 70 65 20 5c 5c 5b 6f 72 67 | he.Subject...header..Type.\\[org |
| f2c0 | 2d 6d 73 67 2d 67 6f 74 6f 2d 62 6f 64 79 5d 20 74 6f 20 6d 6f 76 65 20 74 68 65 20 70 6f 69 6e | -msg-goto-body].to.move.the.poin |
| f2e0 | 74 20 74 6f 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 0a 20 20 74 68 65 20 6d 65 73 73 | t.to.the.beginning.of...the.mess |
| f300 | 61 67 65 20 62 6f 64 79 2e 0a 54 79 70 65 20 5c 5c 5b 6f 72 67 2d 6d 73 67 2d 61 74 74 61 63 68 | age.body..Type.\\[org-msg-attach |
| f320 | 5d 20 74 6f 20 63 61 6c 6c 20 74 68 65 20 64 69 73 70 61 74 63 68 65 72 20 66 6f 72 20 61 74 74 | ].to.call.the.dispatcher.for.att |
| f340 | 61 63 68 6d 65 6e 74 0a 20 20 63 6f 6d 6d 61 6e 64 73 2e 0a 0a 5c 5c 7b 6f 72 67 2d 6d 73 67 2d | achment...commands...\\{org-msg- |
| f360 | 65 64 69 74 2d 6d 6f 64 65 2d 6d 61 70 7d 22 0a 20 20 28 73 65 74 71 2d 6c 6f 63 61 6c 20 6d 65 | edit-mode-map}"...(setq-local.me |
| f380 | 73 73 61 67 65 2d 73 65 6e 74 2d 6d 65 73 73 61 67 65 2d 76 69 61 20 6e 69 6c 29 0a 20 20 28 61 | ssage-sent-message-via.nil)...(a |
| f3a0 | 64 64 2d 68 6f 6f 6b 20 27 6d 65 73 73 61 67 65 2d 73 65 6e 64 2d 68 6f 6f 6b 20 27 6f 72 67 2d | dd-hook.'message-send-hook.'org- |
| f3c0 | 6d 73 67 2d 70 72 65 70 61 72 65 2d 74 6f 2d 73 65 6e 64 20 6e 69 6c 20 74 29 0a 20 20 28 61 64 | msg-prepare-to-send.nil.t)...(ad |
| f3e0 | 64 2d 68 6f 6f 6b 20 27 6d 65 73 73 61 67 65 2d 73 65 6e 74 2d 68 6f 6f 6b 20 27 75 6e 64 6f 20 | d-hook.'message-sent-hook.'undo. |
| f400 | 74 20 74 29 0a 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 63 6f 6d 70 6c 65 74 69 6f 6e 2d 61 74 2d | t.t)...(add-hook.'completion-at- |
| f420 | 70 6f 69 6e 74 2d 66 75 6e 63 74 69 6f 6e 73 20 27 6d 65 73 73 61 67 65 2d 63 6f 6d 70 6c 65 74 | point-functions.'message-complet |
| f440 | 69 6f 6e 2d 66 75 6e 63 74 69 6f 6e 20 6e 69 6c 20 74 29 0a 20 20 28 63 6f 6e 64 20 28 28 6d 65 | ion-function.nil.t)...(cond.((me |
| f460 | 73 73 61 67 65 2d 6d 61 69 6c 2d 61 6c 69 61 73 2d 74 79 70 65 2d 70 20 27 61 62 62 72 65 76 29 | ssage-mail-alias-type-p.'abbrev) |
| f480 | 20 28 6d 61 69 6c 2d 61 62 62 72 65 76 73 2d 73 65 74 75 70 29 29 0a 09 28 28 6d 65 73 73 61 67 | .(mail-abbrevs-setup))..((messag |
| f4a0 | 65 2d 6d 61 69 6c 2d 61 6c 69 61 73 2d 74 79 70 65 2d 70 20 27 65 63 6f 6d 70 6c 65 74 65 29 20 | e-mail-alias-type-p.'ecomplete). |
| f4c0 | 28 65 63 6f 6d 70 6c 65 74 65 2d 73 65 74 75 70 29 29 29 0a 20 20 28 73 65 74 71 20 6f 72 67 2d | (ecomplete-setup)))...(setq.org- |
| f4e0 | 66 6f 6e 74 2d 6c 6f 63 6b 2d 6b 65 79 77 6f 72 64 73 0a 09 28 61 70 70 65 6e 64 20 6d 65 73 73 | font-lock-keywords..(append.mess |
| f500 | 61 67 65 2d 66 6f 6e 74 2d 6c 6f 63 6b 2d 6b 65 79 77 6f 72 64 73 20 6f 72 67 2d 66 6f 6e 74 2d | age-font-lock-keywords.org-font- |
| f520 | 6c 6f 63 6b 2d 6b 65 79 77 6f 72 64 73 0a 09 09 67 6e 75 73 2d 6d 65 73 73 61 67 65 2d 63 69 74 | lock-keywords...gnus-message-cit |
| f540 | 61 74 69 6f 6e 2d 6b 65 79 77 6f 72 64 73 20 6f 72 67 2d 6d 73 67 2d 66 6f 6e 74 2d 6c 6f 63 6b | ation-keywords.org-msg-font-lock |
| f560 | 2d 6b 65 79 77 6f 72 64 73 29 29 0a 20 20 28 74 6f 67 67 6c 65 2d 74 72 75 6e 63 61 74 65 2d 6c | -keywords))...(toggle-truncate-l |
| f580 | 69 6e 65 73 29 0a 20 20 28 6f 72 67 2d 6d 73 67 2d 6d 75 61 2d 63 61 6c 6c 20 27 65 64 69 74 2d | ines)...(org-msg-mua-call.'edit- |
| f5a0 | 6d 6f 64 65 29 0a 20 20 28 73 65 74 71 2d 6c 6f 63 61 6c 20 6b 69 6c 6c 2d 62 75 66 66 65 72 2d | mode)...(setq-local.kill-buffer- |
| f5c0 | 68 6f 6f 6b 20 27 6f 72 67 2d 6d 73 67 2d 6b 69 6c 6c 2d 62 75 66 66 65 72 0a 09 20 20 20 20 20 | hook.'org-msg-kill-buffer....... |
| f5e0 | 20 6f 72 67 2d 6c 69 6e 6b 2d 66 69 6c 65 2d 70 61 74 68 2d 74 79 70 65 20 27 61 62 73 6f 6c 75 | .org-link-file-path-type.'absolu |
| f600 | 74 65 29 0a 20 20 28 77 68 65 6e 20 28 66 65 61 74 75 72 65 70 20 27 64 6e 64 29 0a 20 20 20 20 | te)...(when.(featurep.'dnd)..... |
| f620 | 28 73 65 74 71 2d 6c 6f 63 61 6c 20 64 6e 64 2d 70 72 6f 74 6f 63 6f 6c 2d 61 6c 69 73 74 0a 20 | (setq-local.dnd-protocol-alist.. |
| f640 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 70 70 65 6e 64 20 6f 72 67 2d 6d 73 67 2d 64 | ...............(append.org-msg-d |
| f660 | 6e 64 2d 70 72 6f 74 6f 63 6f 6c 2d 61 6c 69 73 74 20 64 6e 64 2d 70 72 6f 74 6f 63 6f 6c 2d 61 | nd-protocol-alist.dnd-protocol-a |
| f680 | 6c 69 73 74 29 29 29 0a 20 20 28 75 6e 6c 65 73 73 20 28 3d 20 28 6f 72 67 2d 6d 73 67 2d 65 6e | list)))...(unless.(=.(org-msg-en |
| f6a0 | 64 29 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 0a 20 20 20 20 28 61 64 64 2d 74 65 78 74 2d 70 72 | d).(point-max)).....(add-text-pr |
| f6c0 | 6f 70 65 72 74 69 65 73 20 28 31 2d 20 28 6f 72 67 2d 6d 73 67 2d 65 6e 64 29 29 20 28 70 6f 69 | operties.(1-.(org-msg-end)).(poi |
| f6e0 | 6e 74 2d 6d 61 78 29 20 27 28 72 65 61 64 2d 6f 6e 6c 79 20 74 29 29 29 29 0a 0a 28 70 72 6f 76 | nt-max).'(read-only.t))))..(prov |
| f700 | 69 64 65 20 27 6f 72 67 2d 6d 73 67 29 0a 0a 3b 3b 3b 20 6f 72 67 2d 6d 73 67 2e 65 6c 20 65 6e | ide.'org-msg)..;;;.org-msg.el.en |
| f720 | 64 73 20 68 65 72 65 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ds.here......................... |
| f740 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f760 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f780 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f7a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f7c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f7e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f800 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f820 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f840 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f860 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f880 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f8a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f8c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f8e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f900 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f920 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f940 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f960 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f980 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f9a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f9c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| f9e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| fa00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| fa20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| fa40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| fa60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| fa80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| faa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| fac0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| fae0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| fb00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| fb20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| fb40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| fb60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| fb80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| fba0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| fbc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| fbe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| fc00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| fc20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| fc40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| fc60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| fc80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| fca0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| fcc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| fce0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| fd00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| fd20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| fd40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| fd60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| fd80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| fda0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| fdc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| fde0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| fe00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| fe20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| fe40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| fe60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| fe80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| fea0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| fec0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| fee0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ff00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ff20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ff40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ff60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ff80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ffa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ffc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| ffe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10000 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10020 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10040 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10060 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10080 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 100a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 100c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 100e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10100 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10120 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10140 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10160 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10180 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 101a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 101c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 101e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10200 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10220 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10240 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10260 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10280 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 102a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 102c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 102e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10300 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10320 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10340 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10360 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 103a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 103c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 103e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10400 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10420 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10440 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10460 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10480 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 104a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 104c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 104e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10500 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10520 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10540 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10560 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10580 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 105a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 105c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 105e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10600 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10620 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10640 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10660 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10680 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 106a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 106c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 106e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10700 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10720 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10740 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10760 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10780 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 107a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 107c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 107e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10800 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10820 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10840 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10860 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10880 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 108a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 108c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 108e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10900 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10920 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10940 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10960 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10980 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 109a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 109c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 109e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10a00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10a20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10a40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10a60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10a80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10aa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10ac0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10ae0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10b00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10b20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10b40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10b60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10b80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10ba0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10bc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10be0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10c00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10c20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10c40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10c60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10c80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10ca0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10cc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10ce0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10d00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10d20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10d40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10d60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10d80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10da0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10dc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10de0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10e00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10e20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10e40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10e60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10e80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10ea0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10ec0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10ee0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10f00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10f20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10f40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10f60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10f80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10fa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10fc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 10fe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11000 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11020 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11040 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11060 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11080 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 110a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 110c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 110e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11100 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11120 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11140 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11160 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11180 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 111a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 111c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 111e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11200 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11220 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11240 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11260 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11280 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 112a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 112c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 112e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11300 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11320 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11340 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11360 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 113a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 113c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 113e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11400 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11420 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11440 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11460 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11480 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 114a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 114c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 114e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11500 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11520 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11540 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11560 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11580 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 115a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 115c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 115e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11600 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11620 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11640 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11660 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11680 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 116a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 116c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 116e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11700 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11720 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11740 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11760 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 11780 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 117a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 117c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 117e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
 |
index : dotemacs.git | |
| my Emacs configuration | Craig Jennings |
| summaryrefslogtreecommitdiff |
blob: e03ef8089704a9e7f5cb0cad00ac46ad644a0019 (plain)